Aye <- sample(c("Yes", "Si", "Oui"), 177, replace = TRUE)
Bee <- sample(c("Hum", "Buzz"), 177, replace = TRUE)
( A <- table(Aye, Bee) )
## what prop.table() would look like
prop.table(A,margin=1)
## modified for percTable
# row percentages
perc.table(A,margin=1)
perc.table(A,margin=1,digits=1)
# column percentages
perc.table(A,margin=2)
# table percentages
perc.table(A)
## No marginal totals
perc.table(A,margins=FALSE)
Run the code above in your browser using DataLab