blob: 9382883d73bd12df82865cd961626783e339312a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
https://github.com/RcppCore/RcppArmadillo/issues/408
--- inst/tinytest/test_cube.R.orig 2023-02-19 18:01:50 UTC
+++ inst/tinytest/test_cube.R
@@ -24,7 +24,7 @@ Rcpp::sourceCpp("cpp/cube.cpp")
Rcpp::sourceCpp("cpp/cube.cpp")
.onWindows <- .Platform$OS.type == "windows"
-critTol <- if (.onWindows) 1.0e-6 else 1.5e-7
+critTol <- if (.onWindows || .Machine$sizeof.long == 4 || .Machine$sizeof.long == 8) 1.0e-6 else 1.5e-7
## test arrays
dbl_cube <- array(1.5:27.5, rep(3, 3))
|
