Digits for summary methods, print.saem.mmkin

1 files changed, 7 insertions, 7 deletions

diff --git a/R/summary.nlme.mmkin.R b/R/summary.nlme.mmkin.R
index ad730f9a..42326b39 100644
--- a/R/summary.nlme.mmkin.R
+++ b/R/summary.nlme.mmkin.R
@@ -191,10 +191,10 @@ print.summary.nlme.mmkin <- function(x, digits = max(3, getOption("digits") - 3)
 
   cat("\nResults:\n\n")
   print(data.frame(AIC = x$AIC, BIC = x$BIC, logLik = x$logLik,
-      row.names = " "))
+      row.names = " "), ...)
 
   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
@@ -204,28 +204,28 @@ print.summary.nlme.mmkin <- function(x, digits = max(3, getOption("digits") - 3)
 
   cat("\n") # Random effects
   print(summary(x$modelStruct), sigma = x$sigma,
-        reEstimates = x$coef$random, verbose = verbose, ...)
+        reEstimates = x$coef$random, digits = digits, verbose = verbose, ...)
 
   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), ...)
   }
 
   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){