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

Added/removed TODOs

Browse source
This commit is contained in:
Waldir Leoncio 2021-01-15 11:47:20 +01:00
parent 68ad663ce1
commit 15a8c39ef1
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
R/computePopulationLogml.R
View file

@ -6,6 +6,7 @@ computePopulationLogml <- function(pops, adjprior, priorTerm) {
z <- length(pops)
popLogml <- squeeze(
# FIXME: assumes COUNTS has 3 dims. Where does this come from?
sum(
sum(
reshape(

13
R/indMix.R
View file

@ -26,7 +26,7 @@ indMix <- function(c, npops, dispText) {
dispText <- 1
npopstext <- matrix()
ready <- FALSE
teksti <- 'Input upper bound to the number of populations (possibly multiple values)'
teksti <- 'Input upper bound to the number of populations (possibly multiple values)' # TODO: add "likely ncol(Z) values"?
while (!ready) {
npopstextExtra <- inputdlg(
teksti,
@ -87,11 +87,10 @@ indMix <- function(c, npops, dispText) {
)
}
ninds <- size(rows, 1)
initialPartition <- admixture_initialization(initData, npops, Z) # TODO: translate
sumcounts_counts_logml = initialCounts(
initialPartition <- admixture_initialization(initData, npops, Z)
sumcounts_counts_logml <- initialCounts(
initialPartition, data, npops, rows, noalle, adjprior
) # TODO: translate
)
sumcounts <- sumcounts_counts_logml$sumcounts
counts <- sumcounts_counts_logml$counts
logml <- sumcounts_counts_logml$logml
@ -104,7 +103,7 @@ indMix <- function(c, npops, dispText) {
COUNTS <- counts
SUMCOUNTS <- sumcounts
POP_LOGML <- computePopulationLogml(1:npops, adjprior, priorTerm) # TODO: translate
POP_LOGML <- computePopulationLogml(1:npops, adjprior, priorTerm)
LOGDIFF <- repmat(-Inf, c(ninds, npops))
rm(initialPartition, counts, sumcounts)
@ -564,4 +563,4 @@ indMix <- function(c, npops, dispText) {
return(
list(logml = logml, npops = npops, partitionSummary = partitionSummary)
)
}
}