diff options
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index 2dec3a72..63455300 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -374,6 +374,10 @@ mkinfit <- function(mkinmod, observed, lower <- rep(-Inf, length(c(state.ini.optim, transparms.optim)))
upper <- rep(Inf, length(c(state.ini.optim, transparms.optim)))
names(lower) <- names(upper) <- c(names(state.ini.optim), names(transparms.optim))
+
+ # IORE exponentes are not transformed, but need a lower bound of zero
+ index_N <- grep("^N", names(lower))
+ lower[index_N] <- 0
if (!transform_rates) {
index_k <- grep("^k_", names(lower))
lower[index_k] <- 0
|