Adding decision trees using rpart for Titanic dataset