data/cautres.R

In gnm: Generalized Nonlinear Models

"cautres" <-
structure(as.integer(c(37, 5, 19, 4, 30, 4, 22, 8, 38, 9, 38, 
6, 20, 11, 20, 3, 8, 1, 8, 6, 33, 16, 33, 37, 10, 15, 22, 18, 
7, 9, 24, 30, 43, 55, 40, 104, 0, 4, 2, 3, 2, 3, 1, 4, 3, 6, 
5, 28, 86, 4, 52, 0, 47, 2, 80, 20, 113, 31, 55, 18, 57, 13, 
35, 5, 19, 9, 45, 24, 90, 53, 53, 54, 69, 29, 106, 45, 67, 29, 
118, 118, 212, 258, 144, 333, 3, 8, 9, 9, 17, 31, 16, 78, 23, 
72, 15, 102, 61, 11, 22, 11, 32, 7, 59, 21, 79, 55, 31, 37, 34, 
13, 27, 16, 20, 10, 42, 37, 79, 85, 40, 69, 49, 34, 60, 59, 51, 
61, 98, 159, 145, 317, 88, 318, 2, 6, 7, 10, 3, 37, 8, 70, 12, 
81, 10, 84, 50, 4, 30, 5, 33, 12, 63, 17, 73, 18, 31, 17, 35, 
11, 37, 5, 32, 13, 58, 24, 89, 52, 43, 40, 28, 18, 98, 27, 52, 
58, 114, 122, 186, 196, 116, 196, 5, 3, 16, 14, 10, 56, 20, 91, 
44, 59, 26, 95)), .Dim = as.integer(c(2, 6, 4, 4)), .Dimnames = structure(list(
    vote = c("1", "2"), class = c("1", "2", "3", "4", "5", "6"
    ), religion = c("1", "2", "3", "4"), election = c("1", "2", 
    "3", "4")), .Names = c("vote", "class", "religion", "election"
)), class = "table")