diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-11-12 16:59:48 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-11-12 16:59:48 +0100 |
| commit | c04d0bb0e795b67b6958150e8524c5265587f618 (patch) | |
| tree | 4a10eb4a9b612745b4aa9ed1e4f1898a2d6d0ac1 /R/transform_odeparms.R | |
| parent | 401570aa9e58c4a2f2e939f37f496453d97d3f33 (diff) | |
IORE working for parent and metabolites, introduce mkinsub
Diffstat (limited to 'R/transform_odeparms.R')
| -rw-r--r-- | R/transform_odeparms.R | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/R/transform_odeparms.R b/R/transform_odeparms.R index 778f56cd..aa70a0b3 100644 --- a/R/transform_odeparms.R +++ b/R/transform_odeparms.R @@ -38,8 +38,7 @@ transform_odeparms <- function(parms, mkinmod, if (length(k) > 0) {
if(transform_rates) {
transparms[paste0("log_", names(k))] <- log(k)
- }
- else transparms[names(k)] <- k
+ } else transparms[names(k)] <- k
}
# Do not transform exponents in IORE models
@@ -123,6 +122,8 @@ backtransform_odeparms <- function(transparms, mkinmod, } else {
trans_k <- transparms[grep("^k_", names(transparms))]
parms[names(trans_k)] <- trans_k
+ trans_k.iore <- transparms[grep("^k.iore_", names(transparms))]
+ parms[names(trans_k.iore)] <- trans_k.iore
}
# Do not transform exponents in IORE models
|