Oops, NA_real_ for proper expectation

ncss-tech · Aug 19, 2022 · 60a4661 · 60a4661
1 parent 2077cf6
commit 60a4661
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-slab.R b/tests/testthat/test-slab.R
@@ -125,7 +125,7 @@ test_that("extended slab functionality: weighted aggregation", {
   expect_equal(na.1$p.q50, 6.5)
 
   na.2 <- slab(x, ~ ph1to1h2o_r, slab.structure = c(0, 10), weights = "comppct_r", slab.fun = weighted.mean, na.rm = TRUE)
-  expect_equal(na.2$value, NA)
+  expect_equal(na.2$value, NA_real_)
 
 })