High dimensional propensity score algorithm in R