aboutsummaryrefslogtreecommitdiff
path: root/R/mkinpredict.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/mkinpredict.R')
-rw-r--r--R/mkinpredict.R3
1 files changed, 2 insertions, 1 deletions
diff --git a/R/mkinpredict.R b/R/mkinpredict.R
index bed82441..864eefbe 100644
--- a/R/mkinpredict.R
+++ b/R/mkinpredict.R
@@ -19,6 +19,7 @@
mkinpredict <- function(mkinmod, odeparms, odeini,
outtimes, solution_type = "deSolve",
+ use_compiled = "auto",
method.ode = "lsoda", atol = 1e-8, rtol = 1e-10,
map_output = TRUE, ...) {
@@ -87,7 +88,7 @@ mkinpredict <- function(mkinmod, odeparms, odeini,
names(out) <- c("time", mod_vars)
}
if (solution_type == "deSolve") {
- if (!is.null(mkinmod$compiled)) {
+ if (!is.null(mkinmod$compiled) & use_compiled[1] != FALSE) {
mkindiff <- mkinmod$compiled
} else {
mkindiff <- function(t, state, parms) {

Contact - Imprint