aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/mkinfit.R5
1 files changed, 4 insertions, 1 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R
index 2be55151..635ec292 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -145,7 +145,10 @@ mkinfit <- function(mkinmod, observed,
if(length(state.ini.optim) > 0) {
odeini <- c(P[1:length(state.ini.optim)], state.ini.fixed)
names(odeini) <- c(state.ini.optim.boxnames, state.ini.fixed.boxnames)
- } else odeini <- state.ini.fixed.boxnames
+ } else {
+ odeini <- state.ini.fixed
+ names(odeini) <- state.ini.fixed.boxnames
+ }
odeparms <- c(P[(length(state.ini.optim) + 1):length(P)], parms.fixed)

Contact - Imprint