"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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.