The original R program in kaggle