setwd("~/Desktop/5 SRM Kashish Mukheja/Downoad content")
titanic.df<-read.csv(paste("Titanic Data.csv",sep=""))
View(titanic.df)
library(psych)

4b.Code to 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(titanic.df$Survived),FUN=mean)
##   Group.1        x
## 1       0 30.41530
## 2       1 28.42382

4c.to run a t-test to test the following hypothesis:

H2: The Titanic survivors were younger than the passengers who died.

t.test(Age~Survived,data=titanic.df,alternative="greater")
## 
##  Welch Two Sample t-test
## 
## data:  Age by Survived
## t = 2.1816, df = 667.56, p-value = 0.01474
## alternative hypothesis: true difference in means is greater than 0
## 95 percent confidence interval:
##  0.4878763       Inf
## sample estimates:
## mean in group 0 mean in group 1 
##        30.41530        28.42382

Since p-value<0.05,so we reject Null Hypothesis.Hence,the Titanic survivors were younger than the passengers who died.