Titanic.Data <- read.csv("E:/Documents/internship-R/Titanic Data.csv")
 View(Titanic.Data)

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

aggregate (Age ~ Survived, data = Titanic.Data, FUN=mean)
##   Survived      Age
## 1        0 30.41530
## 2        1 28.42382

Use R to run a t-test to test the hypothesis that The Titanic survivors were younger than the passengers who died.

t.test( Age ~ Survived, Titanic.Data)
## 
##  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 0.02 (<0.05), therefore, there is significant difference between the means of our sample population and we reject the null hypothesis. Thus, the alternative hypothesis is true. Thus, the true difference in means is not equal to 0.