calc_prop_scr function

Create a Propensity Score Object