# NOT RUN {
library(CIMTx)
set.seed(1)
idata = data_gen(n = 120, ratio =1,scenario = 1)
trt_ind <- as.numeric(idata$trtdat$trt_ind)
all_vars <- idata$trtdat[, -1] #exclude treatment indicator
y <- idata$Yobs
causal_multi_treat(y = y, x = idata$trtdat,
trt = trt_ind,method = "VM Matching", estimand = "ATT", reference = 1)
# }
Run the code above in your browser using DataLab