1.Setting up the working directory and data frame

setwd("C:/Users/alouk/Downloads")
titanic <- read.csv("Titanic Data.csv")

2.Table to show average age of suvivors and non-survivors

aggregate(Age~Survived,data=titanic,mean)
##   Survived      Age
## 1        0 30.41530
## 2        1 28.42382

3.Test The Titanic survivors were younger than the people who died

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

p value(0.02949) < 0.05

Hence, we can say that the two classes are dependent.

Therefore, Titanic survivors were younger that the people whi died.