Ingrid Brady
28th Sept 2015
Have you ever wondered if you would have survived the Titanic? Now you can get online predictions - at https://iabrady.shinyapps.io/shiny
Titanic trainging data courtesy of https://www.kaggle.com/
The learning algorithm is fast and based on a boosting algorithm
library(dplyr); library(gbm)
train <- read.csv("train.csv", stringsAsFactors=T)
tdata <- select(train, 2:3, 5, 6); tdata <- na.omit(tdata)
boost.data <- gbm(Survived~., data=tdata, distribution="gaussian",
n.trees=323, interaction.depth=3, shrinkage=0.01,
verbose=F, train.fraction=0.8, cv.folds=3)
The error minimisation performance of the model is shown below:
gbm.perf(boost.data,method="cv")
[1] 323
There is a huge following for the Titanic. It has fascinated people for a century and still does. For a casual user:
A nice simple app with great opportunity for the future Enhancements are planned:
See the app at https://iabrady.shinyapps.io/shiny