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 ==========================================================
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,
partitionSummary, popnames, fixedK, verbose
) {
changesInLogml <- list()
ninds <- size(data, 1) / rowsFromInd
npops <- size(COUNTS, 3)
# Check that the names refer to individuals