diff options
| -rw-r--r-- | DESCRIPTION | 2 | ||||
| -rw-r--r-- | R/mkinfit.R | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/DESCRIPTION b/DESCRIPTION index 8f36aab..381a38e 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -2,7 +2,7 @@ Package: mkin Type: Package Title: Routines for fitting kinetic models with one or more state variables to chemical degradation data -Version: 0.9-17 +Version: 0.9-18 Date: 2013-03-12 Author: Johannes Ranke, Katrin Lindenberger, René Lehmann Maintainer: Johannes Ranke <jranke@uni-bremen.de> 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)
|