diff options
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index d8a1c9e..b80be97 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -255,6 +255,7 @@ summary.mkinfit <- function(object, data = TRUE, distimes = TRUE, alpha = 0.05, Rversion = paste(R.version$major, R.version$minor, sep="."),
date.fit = object$date,
date.summary = date(),
+ solution_type = object$solution_type,
use_of_ff = object$mkinmod$use_of_ff,
residuals = object$residuals,
residualVariance = resvar,
@@ -299,6 +300,9 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), . df <- x$df
rdf <- df[2]
+ cat("\nMethod used for solution of differential equation system:\n")
+ cat(x$solution_type, "\n")
+
cat("\nStarting values for optimised parameters:\n")
print(x$start)
|