diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-01 16:59:30 +0100 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-01 17:56:11 +0100 |
commit | 1ba0938b5a39f9d376b54fe3469b40aafea9e8e3 (patch) | |
tree | 4e7e67855246d59a04d2eb0f18646fcc9460e020 /R | |
parent | ccae8c02b1e6a30911b9d1efdb388f30f9c9cb78 (diff) |
Avoid using cat() for default output, tests
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) |