Titanic <- read.csv(“G://IIM Lucknow//Titanic Dataset.csv”) View(Titanic) library(plyr) #Task3a table(Titanic$Survived)

Task3b

tabulate(Titanic\(Survived) #Task3c (tabulate(Titanic\)Survived)/table(Titanic$Survived))*100 #Task3d install.packages(“gmodels”) library(gmodels)

tt <- xtabs(~Survived + Pclass, data = Titanic) ftable(tt) #Task3e (prop.table(addmargins(xtabs(~Survived + Pclass, data = Titanic))))100 #Task3f tt_2 <- xtabs(~Survived + Pclass + Sex, data = Titanic) ftable(tt_2) #Task3g (prop.table(addmargins(xtabs(~Survived + Sex, data = Titanic))))100 #Task3h (prop.table(addmargins(xtabs(~Survived + Sex + Parch, data = Titanic))))*100 #Task3i