happy <-
structure(c(325, 411, 793, 602, 239, 374, 827, 583, 63,
181, 361, 303, 42, 129, 229, 224, 16, 49, 89, 54,
11, 37, 31, 21, 357, 477, 1049, 929, 327, 610, 1447,
1446, 115, 303, 763, 832, 64, 250, 591, 638, 35, 105,
183, 185, 15, 56, 99, 71, 265, 327, 769, 928, 342,
565, 1461, 1808, 104, 314, 768, 1006, 69, 312, 729,
977, 21, 122, 215, 362, 14, 57, 126, 129, 214, 241,
554, 660, 419, 561, 1467, 1861, 130, 290, 786, 938,
89, 319, 741, 1022, 36, 121, 289, 408, 35, 87, 153,
171), .Dim = c(4, 6, 4), .Dimnames = list(c("ED1",
"ED2", "ED3", "ED45"), c("HS1", "HS2", "HS3", "HS4", "HS5", "HS>5"
), c("low", "middle", "high", "very-high")))
dim(happy)
Run the code above in your browser using DataLab