library(vcd)

4.a Read the data

Load the titanic data file

ti1.df <- read.csv(paste("Titanic Data.csv", sep=""))

4.b to create a table showing the average age of the survivors and the average age of the people who died

aggregate(Age~Survived,data=ti1.df,FUN = mean)

##   Survived      Age
## 1        0 30.41530
## 2        1 28.42382

4.c 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 = ti1.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

the above pvalue proves that the hypothesis is correct.

Analysis of titanic problems(T test)

Nikhilan Velumani

December 11, 2017

4.a Read the data

Load the titanic data file

4.b to create a table showing the average age of the survivors and the average age of the people who died

4.c to run a t-test to test the following hypothesis:

H2: The Titanic survivors were younger than the passengers who died.

the above pvalue proves that the hypothesis is correct.