From 5b28712ad11470293e7ab6746718ab3edcfe966b Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Tue, 3 Jul 2012 15:46:14 +0000
Subject: - Add rtol argument in order to increase the precision of deSolve
 based   predictions for complex models - Improve default values for atol and
 set rtol default to 1e-10

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@49 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 R/mkinplot.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/mkinplot.R')

diff --git a/R/mkinplot.R b/R/mkinplot.R
index 7641d26..546c506 100644
--- a/R/mkinplot.R
+++ b/R/mkinplot.R
@@ -18,7 +18,7 @@ mkinplot <- function(fit, xlab = "Time", ylab = "Observed", xlim = range(fit$dat
   odeparms <- parms.all[odenames]
 
   out <- mkinpredict(fit$mkinmod, odeparms, odeini, outtimes, 
-          solution_type = solution_type, ...)
+          solution_type = solution_type, atol = fit$atol, rtol = fit$rtol, ...)
 
   # Plot the data and model output
   plot(0, type="n", 
-- 
cgit v1.2.1