aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-03-01 16:59:30 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-03-01 17:56:11 +0100
commit1ba0938b5a39f9d376b54fe3469b40aafea9e8e3 (patch)
tree4e7e67855246d59a04d2eb0f18646fcc9460e020 /R
parentccae8c02b1e6a30911b9d1efdb388f30f9c9cb78 (diff)
Avoid using cat() for default output, tests
Diffstat (limited to 'R')
-rw-r--r--R/f_time_norm_focus.R3
-rw-r--r--R/mkinfit.R4
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)

Contact - Imprint