add strata to unanchor boot

hta-pharma · Sep 19, 2024 · aa5572c · aa5572c
1 parent 8f418fc
commit aa5572c
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/maic_unanchored.R b/R/maic_unanchored.R
@@ -287,7 +287,8 @@ maic_unanchored_tte <- function(res,
       R = R,
       w_obj = weights_object,
       pseudo_ipd = pseudo_ipd,
-      normalize = normalize_weight
+      normalize = normalize_weight,
+      strata = weights_object$boot_strata
     )
     boot_ci <- boot.ci(boot_res, type = boot_ci_type, w_obj = weights_object, pseudo_ipd = pseudo_ipd)
 
@@ -467,7 +468,8 @@ maic_unanchored_binary <- function(res,
       R = R,
       w_obj = weights_object,
       pseudo_ipd = pseudo_ipd,
-      normalize = normalize_weight
+      normalize = normalize_weight,
+      strata = weights_object$boot_strata
     )
     boot_ci <- boot.ci(boot_res, type = boot_ci_type, w_obj = weights_object, pseudo_ipd = pseudo_ipd)