1) Read the data using read.csv

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

2) View the data frame

View(titanic.df)

3) Create a table showing the average age of the survivors and the average age of the people who died.

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

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

4)Run a t-test to test the following hypothesis:

#H0: The Titanic survivors were equal in age to the passengers who died.
t.test(titanic.df$Age~ titanic.df$Survived)

## 
##  Welch Two Sample t-test
## 
## data:  titanic.df$Age by titanic.df$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

Interpretation of the t-test,

-> As the p-value=0.02949 < 0.05, we can rejet the null hypothesis and conclude that the Titanic survivors were younger than the passengers who died.