diff options
Diffstat (limited to 'R/summary.saem.mmkin.R')
| -rw-r--r-- | R/summary.saem.mmkin.R | 16 |
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){ |