R
treatment <- rep(c("A", "B"), each = 6)
sex <- rep(c("Male", "Female"), each = 3, times = 2)
outcome <- rep(c("Worsened", "No change", "Improved"), times = 4)
counts <- c(155, 215, 280, 75, 180, 95, 85, 95, 75, 55, 40, 25)
data <- data.frame(treatment, sex, outcome, counts)
```