aboutsummaryrefslogtreecommitdiff
path: root/R/summary.saem.mmkin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-11-10 05:14:57 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2020-11-10 05:14:57 +0100
commit606ef9ad6cae0ddfae6db6b90deb03f81140e46f (patch)
tree5a0a581a2251621efdcbd5a5c425cb04eca306f5 /R/summary.saem.mmkin.R
parent96500fa127b59bddb2fcfe77b7b97415bd105f4a (diff)
Digits for summary methods, print.saem.mmkin
Diffstat (limited to 'R/summary.saem.mmkin.R')
-rw-r--r--R/summary.saem.mmkin.R16
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){

Contact - Imprint