diff options
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) |