Siddhant Vats Titanic

store.df <- read.csv(paste("Titanic Data.csv", sep=""))
View(store.df)
by(store.df$Age,store.df$Survived,mean)

## store.df$Survived: 0
## [1] 30.4153
## -------------------------------------------------------- 
## store.df$Survived: 1
## [1] 28.42382

t.test(Age ~ Survived, data=store.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