From a1e99257f79afc3cbd1b2df4f2261f5749f6b461 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 17 Apr 2020 10:31:28 +0200 Subject: Add AIC, BIC and log likelihood to summary.mkinfit --- R/summary.mkinfit.R | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'R/summary.mkinfit.R') 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)) -- cgit v1.2.1