This is an R Markdown document to test the hypothesis that The Titanic survivors were younger than the passengers who died.

1)a table showing the average age of the survivors and the average age of the people who died.

setwd("~/winter internship")
 titanic <- read.csv(paste("Titanic Data.csv",sep=""))
 View(titanic)
aggregate(titanic$Age,by=list(titanic$Survived),mean)
##   Group.1        x
## 1       0 30.41530
## 2       1 28.42382

Therefore the average age of people who survivors is 28.42 and everage age of people who died is 30.41

  1. t-test to test the following hypothesis: H2: The Titanic survivors were younger than the passengers who died.
t.test(Age~Survived, data=titanic)
## 
##  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

The p value is .02949 which is greater than 0.05 and thus there is not significant difference between the 2 means. Thus we can reject the hypothesis The Titanic survivors were younger than the passengers who died.