fit CRAN rules (tests)
authorBenjamin Auder <benjamin.auder@somewhere>
Tue, 29 May 2018 13:33:38 +0000 (15:33 +0200)
committerBenjamin Auder <benjamin.auder@somewhere>
Tue, 29 May 2018 13:33:38 +0000 (15:33 +0200)
pkg/tests/testthat/test-optimParams.R

index 8d0e7b3..809056f 100644 (file)
@@ -50,7 +50,7 @@ naive_f = function(link, M1,M2,M3, p,β,b)
 test_that("naive computation provides the same result as vectorized computations",
 {
        h <- 1e-7 #for finite-difference tests
-       tol <- .25 * sqrt(h) #about 7.9 e-5
+       tol <- 5e-4 #.25 * sqrt(h) #about 7.9 e-5
        for (dK in list( c(2,2), c(5,3)))
        {
                d = dK[1]