From 0517ca6179d3c4bc35cc7edcfd5de3d98aa4fd64 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 9 Dec 2020 08:40:49 +0100
Subject: Some more tests

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

(limited to 'R')

diff --git a/R/summary.saem.mmkin.R b/R/summary.saem.mmkin.R
index 27c2ce6c..3f50c42d 100644
--- a/R/summary.saem.mmkin.R
+++ b/R/summary.saem.mmkin.R
@@ -207,11 +207,11 @@ print.summary.saem.mmkin <- function(x, digits = max(3, getOption("digits") - 3)
     tc = "Two-component variance function"), "\n")
 
   cat("\nMean of starting values for individual parameters:\n")
-  print(x$mean_dp_start)
+  print(x$mean_dp_start, digits = digits)
 
   cat("\nFixed degradation parameter values:\n")
   if(length(x$fixed$value) == 0) cat("None\n")
-  else print(x$fixed)
+  else print(x$fixed, digits = digits)
 
   cat("\nResults:\n\n")
   cat("Likelihood computed by importance sampling\n")
-- 
cgit v1.2.1