This is an R Markdown document which has a couple of commands related to the Titanic dataset.

Task 4a: Opening and Viewing the dataset in R

setwd("D:/R Internship")
titanic.df<-read.csv(paste("Titanic Data.csv",sep = ""))
View(titanic.df)

TASK 4b: 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("Non Survivors","Survivors"))
aggregate(titanic.df$Age,list(titanic.df$Survived),mean)
##         Group.1        x
## 1 Non Survivors 30.41530
## 2     Survivors 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.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 Non Survivors     mean in group Survivors 
##                    30.41530                    28.42382