The following analysis does not take into account parents, children, spouse and siblings of the passengers on-board. Hence, we assume the total number of passengers on-board is 889.
Obtaining the data set
titanic <- read.csv(paste("TitanicData.csv", sep=""))
View(titanic)A table showing the average age of the survivors and the average age of the people who died.
aggregate(Age~Survived,data=titanic,mean)## Survived Age
## 1 0 30.41530
## 2 1 28.42382Running a t-test to test the following hypothesis.
Hypothesis: The Titanic survivors were younger than the passengers who died.
t.test(Age ~ Survived, data=titanic)##
## Welch Two Sample t-test
##
## data: Age by 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.42382We see that p value = 0.029
Which is less than the standard value of 0.05. Hence, we reject the Null hypothesis.
Therefore, we can conclude by saying that there was a significant difference between the ages of those passengers who survived and those who didn’t. It implies that the survivors were youger than the passengers who died.