diff options
| author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2012-07-03 15:46:14 +0000 |
|---|---|---|
| committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2012-07-03 15:46:14 +0000 |
| commit | 5b28712ad11470293e7ab6746718ab3edcfe966b (patch) | |
| tree | 4d1b3329e04ca007048317536b5dd596bab29eec /R/mkinplot.R | |
| parent | e832b2255ad18d85e4ea9cc445ee87825a71c3a8 (diff) | |
- 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
Diffstat (limited to 'R/mkinplot.R')
| -rw-r--r-- | R/mkinplot.R | 2 |
1 files changed, 1 insertions, 1 deletions
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", |