From 550913517889140dd0bb0cb686d871f3969920f5 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Mon, 4 Nov 2013 07:07:21 +0000
Subject: 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
---
 R/mkinfit.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'R')

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)
 
-- 
cgit v1.2.1