Removed lints in test for #28

ocbe-uio · Mar 1, 2024 · 0c77491 · 0c77491
1 parent 05d3bd7
commit 0c77491
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/tests/testthat/test-reg.R b/tests/testthat/test-reg.R
@@ -1,7 +1,5 @@
 # Original function ============================================================
 reg_R <- function(r, Z) {
-  K <- ncol(Z)
-  N <- nrow(Z)
   beta01 <- matrix(0, 1, ncol(r))
   theta01 <- matrix(0, ncol(Z), ncol(r))
   for (e in seq_len(ncol(r))) {
@@ -20,6 +18,6 @@ test_that("reg() produces the correct output", {
   for (rp in seq_len(reps)) {
     r <- matrix(rnorm(n_obs[rp] * n_vars[rp]), n_obs[rp], n_vars[rp])
     z <- as.matrix(sample(0:1, n_obs[rp], replace = TRUE))
-    expect_equal(reg(r, z), reg_R(r, z))
+    expect_identical(reg(r, z), reg_R(r, z), tolerance = 1e-10)
   }
 })