UCBAdmissions <-
array(c(512, 313,
         89,  19,
        353, 207,
         17,   8,
        120, 205,
        202, 391,
        138, 279,
        131, 244,
         53, 138,
         94, 299,
         22, 351,
         24, 317),
      dim = c(2, 2, 6),
      dimnames =
      list(Admit = c("Admitted", "Rejected"),
           Gender = c("Male", "Female"),
           Dept = c("A", "B", "C", "D", "E", "F")))