titanic

https://www.mirror.co.uk/news/uk-news/iceberg-sunk-titanic-100000-years-7506651     https://www.kaggle.com/erikbruin/titanic-2nd-degree-families-and-majority-voting library(Hmisc) library(knitr) library(ggplot2) library(dplyr) library(caret) library(randomForest) library(ROCR) library(cowplot) train <- read.csv(“./input/train.csv”, stringsAsFactors=F, na.strings = c(“NA”, “”)) test <- read.csv(“./input/test.csv”, stringsAsFactors=F, na.strings = c(“NA”, “”)) train %>% str test %>% str test$Survived <- NA all <- rbind(train, test) # Check Missing Data sapply(all, function(x) {sum(is.na(x))}) [sapply(all, function(x) Read more…