From a75c5f01d346cd7e2bbb3f01a98bc16bdca972e5 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 2 Jul 2014 17:38:37 +0200
Subject: Warning -> message, and only if initial parameter was not 1

---
 R/mkinfit.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'R')

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