Kaggle competition code in R