## Get Data to equalize
data("card")
##reduce data frame
card2<-card[c("id","age","educ","fatheduc","motheduc","IQ","wage")]
card_equalized<-sampcompR::dataequalizer(card2,card,variables=c("age","educ","IQ","wage"))
card_equalized[1:20,]
Run the code above in your browser using DataLab