Task 4a - Recalling and reading the Titanic data file into R

setwd("C:/Users/Parul Verma/Desktop/Data Analytics Internship/HBR Cases")
titanic.df <- read.csv(paste("Titanic Data.csv", sep=""))

Task 4b - Creating a table showing the average age of the survivors and the average age of the people who died

aggregate(Age ~ Survived, data=titanic.df, FUN = mean)
##   Survived      Age
## 1        0 30.41530
## 2        1 28.42382

Task 4c - Using R to run a t-test to test the following hypothesis: H2: The Titanic survivors were younger than the passengers who died.

Null hypothesis : There is no significant difference between the age of the passengers who survived and those 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 0 mean in group 1 
##        30.41530        28.42382

Analysis of the t-test :

We see that our p-value = 0.02949 < 0.05. This means that we can reject our null hypothesis. Thus, we can say that the Titanic survivors were younger than the passengers who died.