From 5d3acc7cb023b53162fdc0776099cf53e2ad0dc6 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Wed, 9 Aug 2023 14:18:20 +0200 Subject: [PATCH] Improved messages (#25) --- R/indMix.R | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/R/indMix.R b/R/indMix.R index 03e9636..49df9c1 100644 --- a/R/indMix.R +++ b/R/indMix.R @@ -136,7 +136,7 @@ indMix <- function(c, npops, counts = NULL, sumcounts = NULL, max_iter = 100L, d muutoksia <- 0 if (dispText) { - message(paste("\nPerforming steps:", as.character(roundTypes))) + message(paste("Performing steps:", as.character(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) POP_LOGML <- computePopulationLogml(1:npops, adjprior, priorTerm) if (dispText) { - print(paste("Found partition with", as.character(npops), "populations.")) - print(paste("Log(ml) =", as.character(logml))) - print(" ") + message("Found partition with ", as.character(npops), " populations.") + message("Log(ml) = ", as.character(logml)) } if (logml > logmlBest) {