1. Reading the “Titanic Daeths” data frame.
titanic.df<-read.csv(paste("Titanic Data.csv",sep = ""))
View(titanic.df)
  1. Use R to create a table showing the average age of the survivors and the average age of the people who died.
titanic.df$Survived<-factor(titanic.df$Survived,levels = c(0,1),labels = c("NO","YES"))
aggregate(Age~Survived,data=titanic.df,FUN=mean)
##   Survived      Age
## 1       NO 30.41530
## 2      YES 28.42382
  1. Use R 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)
## 
##  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 NO mean in group YES 
##          30.41530          28.42382

As p-value<0.05, we can say that the null hypothesis fails and that, “The Titanic survivors were younger than the passengers who died.”