# NOT RUN {
mplot(mosaic(Titanic, return_grob = TRUE),
assoc(Titanic), return_grob = TRUE)
A = mosaic(Titanic, return_grob = TRUE)
B = mosaic(Titanic, type = "expected", return_grob = TRUE)
mplot(A, B)
mplot(sieve(SexualFun, return_grob = TRUE),
agreementplot(SexualFun, return_grob = TRUE),
main = "Sexual Fun")
mplot(A, grid.circle())
# }
Run the code above in your browser using DataLab