diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-07-08 16:30:55 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-07-08 16:30:55 +0200 |
| commit | 67d032fb345f8e0afc7628d7525da5b7f0a98f79 (patch) | |
| tree | caba4514f0b04b96a44e62a2e085bdc35cb7aa9a /R/mkinfit.R | |
| parent | 4596667b19f032232ceb8f3f762aaad5d69c15be (diff) | |
Support summarizing older fits
generated with mkin < 0.9.49.5
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 18 |
1 files changed, 10 insertions, 8 deletions
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)
|