R语言完成1:N倾向性评分匹配PSM

#安装包

> library(MatchIt)
> install.packages("Tableone")
> library(Tableone)

#数据集整理

#导入数据集

> X2match <- read_sav("Desktop/.../数据/2match.sav")

#预览数据集

> View(X2match)
> names(X2match)
[1] "id"    "sex"   "age"   "smoke" "solid" "size"  "group" "egfr" 

#使用数据集

> attach(X2match)

#倾向评分匹配

> m.out<-matchit(group~sex+age+smoke+solid+size,data=X2match,method="nearest",caliper=0.005,ratio=3)

#结果总结

> summary(m.out)

Call:
matchit(formula = group ~ sex + age + smoke + solid + size, data = X2match, 
    method &#