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"))) | |
class(UCBAdmissions) <- "table" |