TITANIC T-TEST

# 1)To read the data from csv file  and store it in a dataframe "titanic.df"
titanic.df <- read.csv(paste("Titanic Data.csv",sep=""))

# 2)To view the file
View(titanic.df)

# 3) To create a table showing the average age of the survivors and the average age of the people who died.
 aggregate(titanic.df$Age, by =list(survived = titanic.df$Survived),mean)

##   survived        x
## 1        0 30.41530
## 2        1 28.42382

# 4)To run a t-test to test the following hypothesis:
t.test(Age~Survived,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

# 5)To find H2: The Titanic survivors were younger than the passengers who died.
ypass <- t.test(titanic.df$Age~titanic.df$Survived)$p.value
ypass

## [1] 0.02948791