titanic.df <- read.csv(paste(“Titanic Data.csv”, sep=“”)) View(titanic.df) by(titanic.df\(SibSp,titanic.df\)Parch, sum) aggregate(titanic.df\(SibSp, by=list(parch=titanic.df\)Parch), sum) describe(titanic.df) table(titanic.df\(Survived) prop.table(titanic.df\)Survived) with(titanic.df,table(Survived,Pclass)) with(titanic.df, prop.table(table(Survived,Pclass))) with(titanic.df,table(Survived,Pclass,Sex)) with(titanic.df, prop.table(table(Survived==“1”,Sex==“female”))) with(titanic.df,table(Sex,Survived)) mytable<-xtabs(~titanic.df\(Survived + titanic.df\)Sex) addmargins(mytable) chisq.test(mytable)