data(demo)
output1 <- balancing.weights(S, Z, X, method = "IC", naturalGroupProp)
percentESS(output1)
output2 <- causal.estimate(S, Z, X, Y, B = 5, method = "IC", naturalGroupProp)
percentESS(output2)
Run the code above in your browser using DataLab