Part I

Part II

titanic <- read.csv("/Users/pin.lyu/Desktop/BC_Class_Folder/Data_Analysis/DS_ASSIGNMENT/titanic/train.csv")
# Check for N/A values 
colSums(is.na(titanic))
## PassengerId    Survived      Pclass        Name         Sex         Age 
##           0           0           0           0           0         177 
##       SibSp       Parch      Ticket        Fare       Cabin    Embarked 
##           0           0           0           0           0           0
# Create a table, including Survived, Sex, and Pclass
table(titanic$Survived,
      titanic$Sex, 
      titanic$Pclass)
## , ,  = 1
## 
##    
##     female male
##   0      3   77
##   1     91   45
## 
## , ,  = 2
## 
##    
##     female male
##   0      6   91
##   1     70   17
## 
## , ,  = 3
## 
##    
##     female male
##   0     72  300
##   1     72   47