titanic1<-read.csv("Titanic Data.csv")

TASK 4b

Use R to create a table showing the average age of the survivors and the average age of the people who died.

aggregate(titanic1$Age, by =list(survived = titanic1$Survived),mean)
  survived        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,titanic1)
    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

p-value of the test is 0.02949, p<0.05, we rejest the Null Hypothes , so The titanic survivors are younger than the passengers who died.