train <- read.csv("train.csv", header = T, na.strings = "?", stringsAsFactors = T)
attach(train)
Survived <- as.factor(Survived)