Update R/matching.R

Co-authored-by: Isaac Gravestock <83659704+gravesti@users.noreply.github.com>
hta-pharma · Aug 11, 2024 · 5cf421b · 5cf421b
1 parent 5117a52
commit 5cf421b
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/matching.R b/R/matching.R
@@ -129,8 +129,7 @@ estimate_weights <- function(data,
  set.seed(set_seed_boot)
 
  if (!is.null(boot_strata)) {
- use_strata <- subset(data, subset = (!ind), select = boot_strata)
- use_strata <- apply(use_strata, 1, paste, collapse = "--") |> factor()
+ use_strata <- interaction(data[!ind, boot_strata])
  } else {
  use_strata <- rep(1, nrow(EM))
  }