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

Improved messages (#25)

Browse source
This commit is contained in:
Waldir Leoncio 2023-08-09 14:18:20 +02:00
parent 3ab0a73a02
commit 5d3acc7cb0
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
R/indMix.R
View file

@ -136,7 +136,7 @@ indMix <- function(c, npops, counts = NULL, sumcounts = NULL, max_iter = 100L, d
muutoksia <- 0 muutoksia <- 0
if (dispText) { if (dispText) {
message(paste("\nPerforming steps:", as.character(roundTypes))) message(paste("Performing steps:", as.character(roundTypes)))
} }
for (n in 1:length(roundTypes)) { for (n in 1:length(roundTypes)) {
@ -549,9 +549,8 @@ indMix <- function(c, npops, counts = NULL, sumcounts = NULL, max_iter = 100L, d
npops <- poistaTyhjatPopulaatiot(npops) npops <- poistaTyhjatPopulaatiot(npops)
POP_LOGML <- computePopulationLogml(1:npops, adjprior, priorTerm) POP_LOGML <- computePopulationLogml(1:npops, adjprior, priorTerm)
if (dispText) { if (dispText) {
print(paste("Found partition with", as.character(npops), "populations.")) message("Found partition with ", as.character(npops), " populations.")
print(paste("Log(ml) =", as.character(logml))) message("Log(ml) = ", as.character(logml))
print(" ")
} }
if (logml > logmlBest) { if (logml > logmlBest) {