From db472848915a8065347b8f81477a86928b89fbcf Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 23 May 2019 19:19:27 +0200
Subject: Fix a bug that could lead to wrong chi2 error levels

---
 R/mkinfit.R | 1 +
 1 file changed, 1 insertion(+)

(limited to 'R')

diff --git a/R/mkinfit.R b/R/mkinfit.R
index 5e7b5bd3..bc8b9d11 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -91,6 +91,7 @@ mkinfit <- function(mkinmod, observed,
   if (length(wrongpar.names) > 0) {
     warning("Initial parameter(s) ", paste(wrongpar.names, collapse = ", "),
          " not used in the model")
+    parms.ini <- parms.ini[setdiff(names(parms.ini), wrongpar.names)] 
   }
 
   # Warn that the sum of formation fractions may exceed one if they are not
-- 
cgit v1.2.1