######################
# Random Forest Model
#######################
library(randomForest)
# Create a Model
set.seed(110)
titanic_train <- titanic_clean[1:891,]
titanic_test <- titanic_clean[892:1309,]

titanic.rf <- randomForest(Survived ~
                             Pclass+Sex+Age+SibSp+Parch+Embarked,
                           data = titanic_train,
                           importance=TRUE,
                           proximity = TRUE,
                           ntree=500)
titanic.rf
plot(titanic.rf)
summary(titanic.rf)
varImpPlot(titanic.rf)