[R]Propensity score matching

> install.packages("MatchIt")

> library(MatchIt)

> setwd("C:/data/") 

> Y.DATA <- read.csv("A0814.csv", strip.white = TRUE)

> Y=read.csv("C:/data/A0814.csv")

> m.out=matchit(Bowing~age+sex+side+FC,method="nearest",data=Y,ratio=2)

> m.out

> final_data=match.data(m.out)

> names(final_data)

> head(final_data)

> final_data

> write.csv(final_data,file="propensityfinal.csv", row.names=FALSE)

Call: 

matchit(formula = Bowing ~ age + sex, data = Y, method = "nearest",ratio = 2)

Sample sizes:

          Control Treated

All           485     113

Matched       226     113

Unmatched     259       0

Discarded       0       0