# Aufgabe 26

library(vcd)
Arthritis

Male <- xtabs(~ Treatment + Improved, 
              data = Arthritis, 
              subset = Sex == "Male")
Male

Female <- xtabs(~ Treatment + Improved, 
                data = Arthritis, 
                subset = Sex == "Female")
Female

# 1. Bild
mosaicplot(~ Treatment+Improved, data = Arthritis, 
           color = TRUE)

# 2. Bild
mosaicplot(~ Sex+Treatment+Improved, data = Arthritis, color = TRUE)

# 3. Bild
mosaicplot(~ Treatment+Sex+Improved, data = Arthritis, color = TRUE)