minimal example matchit

propscore.R

library(MatchIt)
library(data.table)
library(magrittr)

set.seed(1902)

cascon = data.frame(rbind(data.table(atr1 = rnorm(100), atr2 = rnorm(100), gruppe = 1),
                          data.table(atr1 = rnorm(100), atr2 = rnorm(100), gruppe = 0))
                    , row.names = paste0("id", 1:200))



matched_objekt =  matchit(gruppe ~ atr1 +  atr2  ,  method = "optimal", verbose = T,  data = cascon, reestimate = F, ratio =1)


data_matched <- data.table(match.data(matched_objekt), keep.rownames = T)
data_matched
setnames(data_matched, "distance", "PropensityScore")
setorder(data_matched, subclass)

data_matched