mirror of
https://github.com/netbirdio/FreeBSD-ports.git
synced 2026-05-22 18:42:42 -07:00
14 lines
484 B
R
14 lines
484 B
R
|
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))
|