aboutsummaryrefslogtreecommitdiff
path: root/R/nlme.mmkin.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/nlme.mmkin.R')
-rw-r--r--R/nlme.mmkin.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/R/nlme.mmkin.R b/R/nlme.mmkin.R
index c6f15c8e..82d5f6de 100644
--- a/R/nlme.mmkin.R
+++ b/R/nlme.mmkin.R
@@ -230,7 +230,7 @@ print.nlme.mmkin <- function(x, digits = max(3, getOption("digits") - 3), ...) {
length(unique(x$data$name)), "variable(s) grouped in",
length(unique(x$data$ds)), "datasets\n")
cat("\nLog-", if(x$method == "REML") "restricted-" else "",
- "likelihood: ", format(x$logLik), "\n", sep = "")
+ "likelihood: ", format(x$logLik, digits = digits), "\n", sep = "")
fixF <- x$call$fixed
cat("\nFixed effects:\n",
deparse(

Contact - Imprint