Titanic - T-test

AvgAge <- aggregate(Titanic$Age, by = list(Titanic$Survived), mean)
AvgAge

##   Group.1        x
## 1       0 30.41530
## 2       1 28.42382

Ttest <- t.test(Age ~ Survived, data = Titanic)
Ttest

## 
##  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

Ttest$p.value

## [1] 0.02948791

p value of less than 0.05 suggests that age indeed influenced survival rate on the ship and a lesser average for the people who survived depicts the true picture