diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-28 11:01:13 +0100 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-28 11:01:13 +0100 |
commit | 0de6c682e5b96d91577bd6185cb1ee899998e585 (patch) | |
tree | d578e4ba09539b2d6221a316f3bb6a22e4fb0bcd /R | |
parent | 2b06ba5be233f5b88a3a64f7de916ed476326067 (diff) |
Improve algorithm summary for saemix fits
Diffstat (limited to 'R')
-rw-r--r-- | R/summary.saem.mmkin.R | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/R/summary.saem.mmkin.R b/R/summary.saem.mmkin.R index e92c561c..204cb46f 100644 --- a/R/summary.saem.mmkin.R +++ b/R/summary.saem.mmkin.R @@ -201,7 +201,9 @@ print.summary.saem.mmkin <- function(x, digits = max(3, getOption("digits") - 3) cat("\nModel predictions using solution type", x$solution_type, "\n") - cat("\nFitted in", x$time[["elapsed"]], "s using", paste(x$so@options$nbiter.saemix, collapse = ", "), "iterations\n") + cat("\nFitted in", x$time[["elapsed"]], "s\n") + cat("Using", paste(x$so@options$nbiter.saemix, collapse = ", "), + "iterations and", x$so@options$nb.chains, "chains\n") cat("\nVariance model: ") cat(switch(x$err_mod, |