From 67d032fb345f8e0afc7628d7525da5b7f0a98f79 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 8 Jul 2019 16:30:55 +0200 Subject: Support summarizing older fits generated with mkin < 0.9.49.5 --- R/mkinfit.R | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'R') diff --git a/R/mkinfit.R b/R/mkinfit.R index 6606ec7a..c14c1cea 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -803,14 +803,16 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), . cat("\nFitted using", x$calls, "model solutions performed in", x$time[["elapsed"]], "s\n") - cat("\nError model: ") - cat(switch(x$err_mod, - const = "Constant variance", - obs = "Variance unique to each observed variable", - tc = "Two-component variance function"), "\n") - - cat("\nError model algorithm:", x$error_model_algorithm, "\n") - if (!is.null(x$d_3_message)) cat(x$d_3_message, "\n") + if (!is.null(x$err_mod)) { + cat("\nError model: ") + cat(switch(x$err_mod, + const = "Constant variance", + obs = "Variance unique to each observed variable", + tc = "Two-component variance function"), "\n") + + cat("\nError model algorithm:", x$error_model_algorithm, "\n") + if (!is.null(x$d_3_message)) cat(x$d_3_message, "\n") + } cat("\nStarting values for parameters to be optimised:\n") print(x$start) -- cgit v1.2.1