diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-12 08:32:08 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-12 08:32:08 +0200 |
| commit | 316f1360d1e12eefe491f86b0bbcd6dcf091c736 (patch) | |
| tree | f155d7bcf82738b5623b4bc3a96aa431b007fceb /R/mkinpredict.R | |
| parent | 65987c9b1ff9206859105c0f94be8346d457262e (diff) | |
First working fits with IORE model
Diffstat (limited to 'R/mkinpredict.R')
| -rw-r--r-- | R/mkinpredict.R | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/R/mkinpredict.R b/R/mkinpredict.R index 14efc568..43b5d2f3 100644 --- a/R/mkinpredict.R +++ b/R/mkinpredict.R @@ -50,6 +50,12 @@ mkinpredict <- function(mkinmod, odeparms, odeini, FOMC = FOMC.solution(outtimes, evalparse(parent.name), evalparse("alpha"), evalparse("beta")), + IORE = IORE.solution(outtimes, + evalparse(parent.name), + ifelse(mkinmod$use_of_ff == "min", + evalparse(paste("k.iore", parent.name, "sink", sep="_")), + evalparse(paste("k.iore", parent.name, sep="_"))), + evalparse("N_parent")), DFOP = DFOP.solution(outtimes, evalparse(parent.name), evalparse("k1"), evalparse("k2"), |