From 39b0b93b5d15a3a0e9126f29c753e2fef75dc701 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 15 Jul 2020 14:11:25 +0200
Subject: 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
---
 R/mkinfit.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R')

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)
-- 
cgit v1.2.1