# NOT RUN {
library(CIMTx)
set.seed(3242019)
idata = data_gen(n = 12, ratio =1,scenario = 1)
trt_ind <- as.numeric(idata$trtdat$trt_ind)
all_vars <- idata$trtdat[, -1]
y <- idata$Yobs
reference_trt <- 2
regadj_multiTrt_att(y = y, x = idata$trtdat,trt = trt_ind, reference = 2, ndpost = 100)
# }
Run the code above in your browser using DataLab