Propensity score matching


.install.packages("MatchIt")
.library(MatchIt)
.data2 <- matchit(grp~age+sex+hand+edu, data=data1, method="nearest", ratio=1)
.data3 <- match.data(data2)