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
---
 R/mkinfit.R | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'R')

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