aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-04-17 10:31:28 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2020-04-17 10:31:28 +0200
commita1e99257f79afc3cbd1b2df4f2261f5749f6b461 (patch)
treee47d5f5995fa879bc63b39b158ccbc2d33826822 /R
parentf1571917e5ef114ea20b5a504ef160c5ab24b42a (diff)
Add AIC, BIC and log likelihood to summary.mkinfit
Diffstat (limited to 'R')
-rw-r--r--R/summary.mkinfit.R7
1 files changed, 7 insertions, 0 deletions
diff --git a/R/summary.mkinfit.R b/R/summary.mkinfit.R
index 90f32da9..246bc41d 100644
--- a/R/summary.mkinfit.R
+++ b/R/summary.mkinfit.R
@@ -125,6 +125,9 @@ summary.mkinfit <- function(object, data = TRUE, distimes = TRUE, alpha = 0.05,
warning = object$warning,
use_of_ff = object$mkinmod$use_of_ff,
error_model_algorithm = object$error_model_algorithm,
+ AIC = AIC(object),
+ BIC = BIC(object),
+ logLik = logLik(object),
df = c(p, rdf),
covar = covar,
covar_notrans = covar_notrans,
@@ -217,6 +220,10 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), .
if(length(x$fixed$value) == 0) cat("None\n")
else print(x$fixed)
+ cat("\nResults:\n\n")
+ print(data.frame(AIC = x$AIC, BIC = x$BIC, logLik = x$logLik,
+ row.names = " "))
+
cat("\nOptimised, transformed parameters with symmetric confidence intervals:\n")
print(signif(x$par, digits = digits))

Contact - Imprint