data(LL)
# cem match: automatic bin choice
mat <- cem(treatment="treated", data=LL, drop="re78")
mat
mat$k2k
# ATT estimate
att(mat, re78 ~ treated, data=LL)
# transform the match into k2k
mat2 <- k2k(mat, LL, "euclidean", 1)
mat2
mat2$k2k
# ATT estimate after k2k
att(mat2, re78 ~ treated, data=LL)Run the code above in your browser using DataLab