# NOT RUN {
data(Gilby)
mosaic(Gilby, shade=TRUE)
# correspondence analysis to see relations among categories
if(require(ca)){
ca(Gilby)
plot(ca(Gilby))
title(xlab="Dimension 1", ylab="Dimension 2")
}
# }
Run the code above in your browser using DataLab