From 25fef221d589b5eebe32829633372d785e750d2a Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 9 Dec 2020 10:52:55 +0100
Subject: Test print method for mixed.mmkin

---
 R/mixed.mmkin.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R')

diff --git a/R/mixed.mmkin.R b/R/mixed.mmkin.R
index 6fe5130d..7aa5edd5 100644
--- a/R/mixed.mmkin.R
+++ b/R/mixed.mmkin.R
@@ -92,10 +92,10 @@ print.mixed.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\n")
 
-  print(x$mmkin)
+  print(x$mmkin, digits = digits)
 
   cat("\nMean fitted parameters:\n")
-  print(mean_degparms(x$mmkin))
+  print(mean_degparms(x$mmkin), digits = digits)
 
   invisible(x)
 }
-- 
cgit v1.2.1