Matching By The Propensity Score Methodology With Applications In R