Titanic Revisited

1. Reading the Titanic Data

titanic <- read.csv("Titanic Data.csv")

2. View the data frame

View(titanic)

3. Creation of Table showing average age of survivors and dead victims

aggregate(titanic$Age, by=list(Survived=titanic$Survived), mean)

##   Survived        x
## 1        0 30.41530
## 2        1 28.42382

4 Performing T-Test

t.test(titanic$Age~ titanic$Survived)

## 
##  Welch Two Sample t-test
## 
## data:  titanic$Age by titanic$Survived
## t = 2.1816, df = 667.56, p-value = 0.02949
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  0.1990628 3.7838912
## sample estimates:
## mean in group 0 mean in group 1 
##        30.41530        28.42382

5. Interpretation of T-test

The p value is 0.029 which is less than 0.05 , therefore null hypothesis is rejected and alternate hypothesis is accepted. This implies that the average age of survivors of Titanic was less than dead victims.