TASK 2b - Reading the dataset

Read the Titanic data set into R. Create a dataframe called “titanic”.

titanic.df<-read.csv(paste("Titanic Data.csv", sep=""))
View(titanic.df)

TASK 3a

Use R to count the total number of passengers on board the Titanic.

library(psych)
describe(titanic.df)
##           vars   n  mean    sd median trimmed   mad min    max  range
## Survived     1 889  0.38  0.49   0.00    0.35  0.00 0.0   1.00   1.00
## Pclass       2 889  2.31  0.83   3.00    2.39  0.00 1.0   3.00   2.00
## Sex*         3 889  1.65  0.48   2.00    1.69  0.00 1.0   2.00   1.00
## Age          4 889 29.65 12.97  29.70   29.22  9.34 0.4  80.00  79.60
## SibSp        5 889  0.52  1.10   0.00    0.27  0.00 0.0   8.00   8.00
## Parch        6 889  0.38  0.81   0.00    0.19  0.00 0.0   6.00   6.00
## Fare         7 889 32.10 49.70  14.45   21.28 10.24 0.0 512.33 512.33
## Embarked*    8 889  2.54  0.79   3.00    2.67  0.00 1.0   3.00   2.00
##            skew kurtosis   se
## Survived   0.48    -1.77 0.02
## Pclass    -0.63    -1.27 0.03
## Sex*      -0.62    -1.61 0.02
## Age        0.43     0.96 0.43
## SibSp      3.68    17.69 0.04
## Parch      2.74     9.66 0.03
## Fare       4.79    33.23 1.67
## Embarked* -1.26    -0.23 0.03

TASK 3b

Use R to count the number of passengers who survived the sinking of the Titanic.

survivors<-with(titanic.df, table(Survived))
survivors
## Survived
##   0   1 
## 549 340

TASK 3c

Use R to measure the percentage of passengers who survived the sinking of the Titanic.

prop.table(survivors)*100
## Survived
##        0        1 
## 61.75478 38.24522

TASK 3d

Use R to count the number of first-class passengers who survived the sinking of the Titanic

class_wise_passengers<-xtabs(~Survived+Pclass, data=titanic.df)
class_wise_passengers
##         Pclass
## Survived   1   2   3
##        0  80  97 372
##        1 134  87 119

TASK 3e

Use R to measure the percentage of first-class passengers who survived the sinking of the Titanic

prop.table(class_wise_passengers,2)*100
##         Pclass
## Survived        1        2        3
##        0 37.38318 52.71739 75.76375
##        1 62.61682 47.28261 24.23625

TASK 3f

Use R to count the number of females from First-Class who survived the sinking of the Titanic

class_sex_passengers<- xtabs(~Sex+Pclass+Survived, data=titanic.df)
class_sex_passengers
## , , Survived = 0
## 
##         Pclass
## Sex        1   2   3
##   female   3   6  72
##   male    77  91 300
## 
## , , Survived = 1
## 
##         Pclass
## Sex        1   2   3
##   female  89  70  72
##   male    45  17  47

TASK 3g

Use R to measure the percentage of survivors who were female

survivors_sex<-xtabs(~Survived+Sex, data=titanic.df)
prop.table(survivors_sex,1)*100
##         Sex
## Survived   female     male
##        0 14.75410 85.24590
##        1 67.94118 32.05882

TASK 3h

Use R to measure the percentage of females on board the Titanic who survived

survivors_sex<-xtabs(~Survived+Sex, data=titanic.df)
prop.table(survivors_sex,2)*100
##         Sex
## Survived   female     male
##        0 25.96154 81.10919
##        1 74.03846 18.89081

TASK 3i

Run a Pearson’s Chi-squared test to test the following hypothesis: The proportion of females onboard who survived the sinking of the Titanic was higher than the proportion of males onboard who survived the sinking of the Titanic

chisq.test(survivors_sex)
## 
##  Pearson's Chi-squared test with Yates' continuity correction
## 
## data:  survivors_sex
## X-squared = 258.43, df = 1, p-value < 2.2e-16