Last chance! 50% off unlimited learning
Sale ends in
data("Arthritis")
art <- xtabs(~ Treatment + Improved, data = Arthritis, subset = Sex == "Female")
art
mosaic(art, gp = shading_Friendly)
mosaic(art, gp = shading_max)
Run the code above in your browser using DataLab