# NOT RUN {
library(CIMTx)
set.seed(3242019)
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
x = idata$trtdat
causal_multi_treat(y = y, x = idata$trtdat, trt = trt_ind,SL.library = c("SL.glm"),
method = "IPTW-Logistics", estimand = "ATE")
# }
Run the code above in your browser using DataLab