update test-unvalidated-early-zero_weight.R to add a log there

Merck · Apr 23, 2024 · 1d013fa · 1d013fa
1 parent 821c7ba
commit 1d013fa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-unvalidated-early_zero_weight.R b/tests/testthat/test-unvalidated-early_zero_weight.R
@@ -55,7 +55,7 @@ test_that("early_zero_weight() with stratified data", {
   output <- early_zero_weight(input, early_period = 2, fail_rate = fail_rate)
 
   observed <- output$weight
-  expected <- rep(c(0, 0.8, 0, 0.7), c(43L, 20L, 29L, 33L))
+  expected <- rep(c(0, log(0.8), 0, log(0.7)), c(43L, 20L, 29L, 33L))
   expect_equal(observed, expected)
 })