R-code for kaggle yelp competition