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

Fixed output of greedyMix()

Browse source
This commit is contained in:
Waldir Leoncio 2023-09-14 11:02:06 +02:00
parent bde3be6344
commit a73752364b
2 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
R/greedyMix.R
View file

@ -73,5 +73,5 @@ greedyMix <- function(
) )
# Updateing results ========================================================== # Updateing results ==========================================================
return(c(out, "changesInLogml" = changesInLogml)) return(c(out, list("changesInLogml" = changesInLogml)))
} }

1
R/writeMixtureInfo.R
View file

@ -15,7 +15,6 @@ writeMixtureInfo <- function(
logml, rowsFromInd, data, adjprior, priorTerm, outPutFile, inputFile, logml, rowsFromInd, data, adjprior, priorTerm, outPutFile, inputFile,
partitionSummary, popnames, fixedK, verbose partitionSummary, popnames, fixedK, verbose
) { ) {
changesInLogml <- list()
ninds <- size(data, 1) / rowsFromInd ninds <- size(data, 1) / rowsFromInd
npops <- size(COUNTS, 3) npops <- size(COUNTS, 3)
# Check that the names refer to individuals # Check that the names refer to individuals