Week4_Dis

train <- read.csv("C:/R/train.csv")
table(train$Survived, train$Sex, train$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

knitr::include_graphics("C:\\Users\\10419\\Desktop\\Screenshots\\Week4_Dis.png")

1. Pclass3 has the most people. There are more people in this Pclass than in the other two Pclasses combined.
2. There more people died than people survived.
3. In every Pclass, there are more males than females.