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

Partial reversion of b034158 (#25)

Browse source 
It should be OK for Z to be NULL. This currently triggers an issue on initialCounts(), which should be fixed
This commit is contained in:
Waldir Leoncio 2023-08-11 16:22:29 +02:00
parent 372891fbe1
commit 177685b6a2
1 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
R/indMix.R
View file

@ -88,20 +88,18 @@ indMix <- function(c, npops, counts = NULL, sumcounts = NULL, max_iter = 100L, d
}
ninds <- size(rows, 1)
if (!is.null(Z)) {
initialPartition <- admixture_initialization(initData, npops, Z)
sumcounts_counts_logml <- initialCounts(
initialPartition, data, npops, rows, noalle, adjprior
)
sumcounts <- sumcounts_counts_logml$sumcounts
counts <- sumcounts_counts_logml$counts
logml <- sumcounts_counts_logml$logml
initialPartition <- admixture_initialization(initData, npops, Z)
sumcounts_counts_logml <- initialCounts(
initialPartition, data, npops, rows, noalle, adjprior
)
sumcounts <- sumcounts_counts_logml$sumcounts
counts <- sumcounts_counts_logml$counts
logml <- sumcounts_counts_logml$logml
PARTITION <- zeros(ninds, 1)
for (i in seq_len(ninds)) {
apu <- rows[i]
PARTITION[i] <- initialPartition[apu[1]]
}
PARTITION <- zeros(ninds, 1)
for (i in seq_len(ninds)) {
apu <- rows[i]
PARTITION[i] <- initialPartition[apu[1]]
}
COUNTS <- counts