diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-02 17:38:37 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-02 17:38:37 +0200 |
| commit | a75c5f01d346cd7e2bbb3f01a98bc16bdca972e5 (patch) | |
| tree | 1c580e26f5295a68972586d304e573d9019e965d | |
| parent | 4bf5aeb552bab6e4fac98acf0b590e3f46e53354 (diff) | |
Warning -> message, and only if initial parameter was not 1
| -rw-r--r-- | R/mkinfit.R | 6 |
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
}
|