#安装包
> 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,