correct early_zero in wlr

Merck · Apr 10, 2024 · e19dc7a · e19dc7a
1 parent 7fec202
commit e19dc7a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/wlr.R b/R/wlr.R
@@ -65,7 +65,7 @@ wlr <- function(data, weight, return_variance = FALSE) {
     ans$z <- ans$estimate / ans$se
 
   } else if (inherits(weight, "early_period")) {
-    x <- x |> early_zero_weight(early_period = weight$early_period)
+    x <- x |> early_zero_weight(early_period = weight$early_period, fail_rate = weight$fail_rate)
 
     ans$parameter <- paste0("Xu 2017 with first ", weight$early_period, " months of 0 weights")
     ans$estimate <- sum(x$o_minus_e * x$weight)