# NOT RUN {
library(CIMTx)
set.seed(3242019)
idata = data_gen(n = 5, 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 = all_vars,
trt = trt_ind, method = "BART", estimand = "ATT", discard = "No", ndpost = 10, reference_trt = 2)
# }
Run the code above in your browser using DataLab