Titanic

Early RPubs testing with Kaggle.com titanic data

mydata<-read.csv("train.csv")
mytable<-table(mydata$Survived, mydata$Sex)
mytable

##    
##     female male
##   0     81  468
##   1    233  109

Including Plots

barplot(mytable, col=c("blue4","chartreuse"), legend.text = c("Drowned","Survived"),args.legend = list(x = "topleft"))
title(main="Titanic Survival")