Digits for summary methods, print.saem.mmkin

1 files changed, 8 insertions, 8 deletions

diff --git a/R/summary.saem.mmkin.R b/R/summary.saem.mmkin.R
index 75fdb045..337120b2 100644
--- a/R/summary.saem.mmkin.R
+++ b/R/summary.saem.mmkin.R
@@ -213,10 +213,10 @@ print.summary.saem.mmkin <- function(x, digits = max(3, getOption("digits") - 3)
   cat("\nResults:\n\n")
   cat("Likelihood computed by importance sampling\n")
   print(data.frame(AIC = x$AIC, BIC = x$BIC, logLik = x$logLik,
-      row.names = " "))
+      row.names = " "), digits = digits)
 
   cat("\nOptimised, transformed parameters with symmetric confidence intervals:\n")
-  print(x$confint_trans)
+  print(x$confint_trans, digits = digits)
 
   if (nrow(x$confint_trans) > 1) {
     corr <- x$corFixed
@@ -225,30 +225,30 @@ print.summary.saem.mmkin <- function(x, digits = max(3, getOption("digits") - 3)
   }
 
   cat("\nRandom effects:\n")
-  print(x$confint_ranef)
+  print(x$confint_ranef, digits = digits)
 
   cat("\nVariance model:\n")
-  print(x$confint_errmod)
+  print(x$confint_errmod, digits = digits)
 
   cat("\nBacktransformed parameters with asymmetric confidence intervals:\n")
-  print(x$confint_back)
+  print(x$confint_back, digits = digits)
 
   printSFORB <- !is.null(x$SFORB)
   if(printSFORB){
     cat("\nEstimated Eigenvalues of SFORB model(s):\n")
-    print(x$SFORB, digits=digits,...)
+    print(x$SFORB, digits = digits,...)
   }
 
   printff <- !is.null(x$ff)
   if(printff){
     cat("\nResulting formation fractions:\n")
-    print(data.frame(ff = x$ff), digits=digits,...)
+    print(data.frame(ff = x$ff), digits = digits,...)
   }
 
   printdistimes <- !is.null(x$distimes)
   if(printdistimes){
     cat("\nEstimated disappearance times:\n")
-    print(x$distimes, digits=digits,...)
+    print(x$distimes, digits = digits,...)
   }
 
   if (x$print_data){