aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-03-15 07:29:22 +0000
committerjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-03-15 07:29:22 +0000
commit83683ec5ce1023ece9e1d3d5a694dc9348391771 (patch)
tree20fd36455042eaba53257b6c24e3ae1853bb3b4c
parent534ca604ff8fa435c9b07f812de40a1af1e20e0c (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
-rw-r--r--DESCRIPTION2
-rw-r--r--R/mkinfit.R4
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)

Contact - Imprint