Import File

titanic=read.csv(paste("Titanic Data.csv",sep=""))

View Data File

View(titanic)

create a table showing the average age of the survivors and the average age of the people who died.

table1=aggregate(titanic$Age,by=list(titanic$Survived),FUN=mean)
table1
##   Group.1        x
## 1       0 30.41530
## 2       1 28.42382

run a t-test to test the following hypothesis- H2: 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.42382

Since the p-value is greater than 0.05, we fail to reject the null hypothesis that There is no difference in the mean age of the survivors of titanic. This means that we cannot conclude that the Titanic survivors were younger than the passengers who died