TASK 4a-Recall the Titanic Data.csv data associated with the “Sinking of the RMS Titanic” that you analyzed on WEEK 1, DAY 5
titanic <- read.csv(paste("Titanic Data.csv",sep=""))
View(titanic)
TASK 4b
Use R to create a table showing the average age of the survivors and the average age of the people who died.
library(psych)
aggregate(titanic$Age, by=list(titanic$Survived), mean)
## Group.1 x
## 1 0 30.41530
## 2 1 28.42382
TASK 4c-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)
##
## 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
If we have H2 as:“The Titanic survivors were younger than the passengers who died”.The null hypothesis is, “There is no significant difference between the average ages of the survivors and the non-survivors”.And now as the value of p, is ‘0.02949’, i.e , (p<0.05), it suggests there is a significant difference between the ages of the survivors and the non-survivors, and we reject our null hypothesis.