###
### Example: Optimal Covariate Balance
###
data1<-MSMdata(200)
attach(data1)
formulas.msm<-list(c(treat.1~X1, treat.2~X2, treat.3~X3))
msm1<-CBPS(formulas.msm,method="over",type="MSM")
balance(msm1)
detach(data1)
Run the code above in your browser using DataLab