From 3b15daaf373ebc36da2eb92f2e37ed569731f07d Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 9 Dec 2020 13:08:01 +0100
Subject: More tests

---
 R/nlme.mmkin.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/nlme.mmkin.R')

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(
-- 
cgit v1.2.1