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/mkinfit.R | |
| parent | ccae8c02b1e6a30911b9d1efdb388f30f9c9cb78 (diff) | |
Avoid using cat() for default output, tests
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 4 |
1 files changed, 2 insertions, 2 deletions
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) |