diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-07-15 14:11:25 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-07-15 14:16:29 +0200 |
| commit | 39b0b93b5d15a3a0e9126f29c753e2fef75dc701 (patch) | |
| tree | fcb5527b86595b7c077cb574aecc62ff99a26e26 /R/mkinfit.R | |
| parent | 9f8e1eb33b586beb7e889212bdababa081b6ff67 (diff) | |
Improve tests
- Reduce significant digits for the objective function output in
mkinfit(..., quiet = FALSE) as R and R-devel gave different output on my
system
- Add makefile target 'devtest' for testing with R-devel, in order
to fix problems showing up with R-devel on Travis
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 2 |
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) |