Add tests.

JieYinStat · Apr 1, 2024 · 0d2e693 · 0d2e693
1 parent f27fb94
commit 0d2e693
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/testthat/test-IES.R b/tests/testthat/test-IES.R
@@ -12,6 +12,13 @@ test_that("IES with R works", {
   q <- 16
   expect_equal(r_IES(X, n, q, seed = 123), r_IES(X, n, q, seed = 123))
 })
+test_that("IES get the same result with R and RcppArmadillo", {
+  data <- data_numeric_regression
+  X <- data[-which(names(data) == "y")]
+  n <- 1000
+  q <- 16
+  expect_equal(r_IES_compare(X, n, q), c_IES_compare(X, n, q))
+})
 test_that("IES R-version works", {
   data <- data_numeric_regression
   X <- data[-which(names(data) == "y")]