diff options
| author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-03-15 07:29:22 +0000 |
|---|---|---|
| committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-03-15 07:29:22 +0000 |
| commit | 83683ec5ce1023ece9e1d3d5a694dc9348391771 (patch) | |
| tree | 20fd36455042eaba53257b6c24e3ae1853bb3b4c /R | |
| parent | 534ca604ff8fa435c9b07f812de40a1af1e20e0c (diff) | |
Add the solution type used in the fit to the summary
git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@77 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
Diffstat (limited to '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)
|