path <- "M:\\General Research Directory\\171-161\\Data\\"

titanic <- read.delim(paste0(path, "titanic.txt"))

print(names(titanic))

print(class(titanic$Class))

attach(titanic)

print(levels(Class))

Table1 <- table(Class)
prop.table(Table1) ## Proportions
100*prop.table(Table1) ## Percentages

Table2 <- table(Sex,Survived)
Table3 <- table(Sex,Survived,Age)

prop.table(Table2) ## Overall
prop.table(Table2,1) ## Across row
prop.table(Table2,2) ## Across col

prop.table(Table3,c(1,3))


require(lattice)
barchart(Table1)
barchart(table(Survived))
barchart(table(Survived),horizontal=FALSE)
barchart(table(Class,Survived))
barchart(table(Class,Survived),auto.key=TRUE)
barchart(table(Class,Sex,Survived),auto.key=TRUE)
barchart(table(Class,Sex,Age,Survived),auto.key=TRUE)
barchart(table(Class,Sex,Age,Survived),auto.key=TRUE,scales="free")

detach(titanic)