title: “TitanicCaseT_Test” author: “Puneet Rajput” output: html_document —

titan.df <- read.csv(paste("Titanic Data.csv", sep = ""))
View(titan.df)
mytable <- aggregate(Age~Survived, data=titan.df, mean)
mytable

##   Survived      Age
## 1        0 30.41530
## 2        1 28.42382

### Average age of people who survived: 28.42 ### Average age of people who died :30.41

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

### Since value of p is less than 0.005, we conclude that the true difference in the mean of the ages isn’t zero but there is a statistical significant difference instead. People survived are younger than people died.