diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/f_time_norm_focus.R | 3 | ||||
| -rw-r--r-- | R/mkinfit.R | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/R/f_time_norm_focus.R b/R/f_time_norm_focus.R index e7c6f22e..259dd131 100644 --- a/R/f_time_norm_focus.R +++ b/R/f_time_norm_focus.R @@ -107,7 +107,6 @@ f_time_norm_focus.mkindsg <- function(object, object$f_time_norm <- f_time_norm_focus(meta$temperature, moisture = study_moisture, field_moisture = field_moisture, Q10 = Q10, walker = walker, f_na = f_na) - cat("$time_norm was set to\n") - print(object$f_time_norm) + message("$f_time_norm was (re)set to normalised values") invisible(object$f_time_norm) } diff --git a/R/mkinfit.R b/R/mkinfit.R index 4da39841..bf164c3f 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -646,8 +646,8 @@ mkinfit <- function(mkinmod, observed, if (cost < cost.current) { assign("cost.current", cost, inherits = TRUE) - if (!quiet) cat(ifelse(OLS, "Sum of squared residuals", "Negative log-likelihood"), - " at call ", calls, ": ", signif(cost.current, 6), "\n", sep = "") + if (!quiet) message(ifelse(OLS, "Sum of squared residuals", "Negative log-likelihood"), + " at call ", calls, ": ", signif(cost.current, 6), "\n") } } return(cost) |