max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Fixed calculation of distances

Browse source
This commit is contained in:
Waldir Leoncio 2024-09-27 13:18:10 +02:00
parent 4b0448d05e
commit 99ec89fd85
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
R/writeMixtureInfo.R
View file

@ -196,7 +196,10 @@ writeMixtureInfo <- function(
prior[1, nollia] <- 1 prior[1, nollia] <- 1
for (pop1 in 1:npops) { for (pop1 in 1:npops) {
squeezed_COUNTS_prior <- squeeze(globals$COUNTS[, , pop1]) + prior squeezed_COUNTS_prior <- squeeze(globals$COUNTS[, , pop1]) + prior
d[, , pop1] <- squeezed_COUNTS_prior / sum(squeezed_COUNTS_prior) repmat_squeezed_COUNTS_prior <- matlab2r::repmat(
colSums(squeezed_COUNTS_prior), c(maxnoalle, 1L)
)
d[, , pop1] <- squeezed_COUNTS_prior / repmat_squeezed_COUNTS_prior
} }
ekarivi <- as.character(npops) ekarivi <- as.character(npops)
if (verbose) cat(ekarivi) if (verbose) cat(ekarivi)