From 83683ec5ce1023ece9e1d3d5a694dc9348391771 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Fri, 15 Mar 2013 07:29:22 +0000
Subject: 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
---
 DESCRIPTION | 2 +-
 R/mkinfit.R | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

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)
 
-- 
cgit v1.2.1