Titanic

Task 4a

titanic.df= read.csv(“Titanic Data.csv”)

View(titanic.df)

Task 4b

survivor = subset(titanic.df, titanic.df$Survive == 1)

mean_survive= mean(survivor$Age) mean_survive

notsurvivor = subset(titanic.df, titanic.df\(Survive == 0) mean_notsurvive= mean(notsurvivor\)Age) mean_notsurvive

table(mean_survive,mean_notsurvive)

Task 4c

t.test(mean_survive~mean_notsurvive, data = titanic.df )