aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-07-02 17:38:37 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-07-02 17:38:37 +0200
commita75c5f01d346cd7e2bbb3f01a98bc16bdca972e5 (patch)
tree1c580e26f5295a68972586d304e573d9019e965d
parent4bf5aeb552bab6e4fac98acf0b590e3f46e53354 (diff)
Warning -> message, and only if initial parameter was not 1
-rw-r--r--R/mkinfit.R6
1 files changed, 4 insertions, 2 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R
index 8ad91981..0e643ac7 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -113,8 +113,10 @@ mkinfit <- function(mkinmod, observed,
# When we have no sink and only one pathway, we get an implicitly
# fixed parameter which we need in the model
if (!mkinmod$spec[[box]]$sink && length(f_names) == 1) {
- if (f_names %in% names(parms.ini)) warning("Setting ", f_names, " to 1")
- parms.ini[f_names] = 1
+ if (f_names %in% names(parms.ini) && parms.ini[f_names] != 1) {
+ message("Setting ", f_names, " to 1")
+ parms.ini[f_names] = 1
+ }
defaultpar.names <- setdiff(defaultpar.names, f_names)
f_fixed_implicit[f_names] = 1
}

Contact - Imprint