aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/mkinfit.R1
1 files changed, 1 insertions, 0 deletions
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

Contact - Imprint