data(Dyke)
# independence model
mosaic(Dyke, shade=TRUE)
# baseline model, Knowledge as response
dyke.mod0 <- loglm(~ Knowledge + (Reading * Radio * Lectures * Newspaper), data=Dyke)
dyke.mod0
mosaic(dyke.mod0)
Run the code above in your browser using DataLab