diff options
| author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-11-04 07:07:21 +0000 |
|---|---|---|
| committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-11-04 07:07:21 +0000 |
| commit | 550913517889140dd0bb0cb686d871f3969920f5 (patch) | |
| tree | d13b5a444cb338c10aac3852a87a44509692385b /R | |
| parent | 47122669f3d61c9e16b583858bac826b5a71979c (diff) | |
Bugfix for a recently introduced breakage of fixed_initials
git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@132 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
Diffstat (limited to 'R')
| -rw-r--r-- | R/mkinfit.R | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index 2be5515..635ec29 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)
|