R Code and data for the Titanic competition on Kaggle