diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-12-09 13:08:01 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-12-09 13:08:01 +0100 |
| commit | 3b15daaf373ebc36da2eb92f2e37ed569731f07d (patch) | |
| tree | 75339d1b69c30edf26251a48fedeee70b6069d82 /R/nlme.mmkin.R | |
| parent | c6944440507b4b793a3715704122dfffb350a5a0 (diff) | |
More tests
Diffstat (limited to 'R/nlme.mmkin.R')
| -rw-r--r-- | R/nlme.mmkin.R | 2 |
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( |