1) The ‘titanic’ dataset

      titanic.df <- read.csv(paste("Titanic Data.csv", sep=""))
      View(titanic.df)

2) Table consisting of average age of survivors and those who died

    aggregate(titanic.df$Age, by=list(Survived=titanic.df$Survived), mean)
##   Survived        x
## 1        0 30.41530
## 2        1 28.42382
 We can see from the above table that the average age 
 of people who survived is 28.42382 and the average age
 of those who died is 30.41530

3) T-test

    attach(titanic.df)
t.test(Age~Survived, data=titanic.df)
## 
##  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

The p value is 0.02949

We see that since the p value is not <0.001 we cannot reject the null hypothesis and the titanic survivors were younger than the passengers who died.