setwd("C:/Users/vaibhav/Desktop/DataSets")
titanic.df<-read.csv("TitanicData.csv")
View(titanic.df)

survive.data<-aggregate(titanic.df$Age,list(titanic.df$Survived),mean)
survive.data

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

t.test(Age ~ Survived,data=titanic.df,var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Age by Survived
## t = 2.2302, df = 887, p-value = 0.02599
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  0.238890 3.744064
## sample estimates:
## mean in group 0 mean in group 1 
##        30.41530        28.42382