## Not run:
# library(MatchIt)
# data('lalonde')
# m.out <- matchit(treat ~ educ + black, data = lalonde, method = 'full')
# att(obj = m.out, Y = lalonde$re78)
# abadie_imbens_se(m.out, lalonde$re78) # FAILS!
# m.out <- add_model_matrix(m.out)
# abadie_imbens_se(m.out, lalonde$re78)
# ## End(Not run)
Run the code above in your browser using DataLab