aboutsummaryrefslogtreecommitdiff
path: root/R/mkinfit.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/mkinfit.R')
-rw-r--r--R/mkinfit.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R
index 73fe43e0..12df0325 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -637,7 +637,7 @@ 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, ": ", cost.current, "\n", sep = "")
+ " at call ", calls, ": ", signif(cost.current, 6), "\n", sep = "")
}
}
return(cost)

Contact - Imprint