"scrabble" <-
structure(list(piece = structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9,
10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25,
26, 27), class = "factor", .Label = c("A", "B", "C", "D", "E",
"F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R",
"S", "T", "U", "V", "W", "X", "Y", "Z", "blank")), points = c(1,
3, 3, 2, 1, 4, 2, 4, 1, 8, 5, 1, 3, 1, 1, 3, 10, 1, 1, 1, 1,
4, 4, 8, 4, 10, 0), frequency = c(9, 2, 2, 4, 12, 2, 3, 2, 9,
1, 1, 4, 2, 6, 8, 2, 1, 6, 4, 6, 4, 2, 2, 1, 2, 1, 2)), .Names = c("piece",
"points", "frequency"), row.names = c("1", "4", "7", "10", "13",
"16", "19", "22", "25", "2", "5", "8", "11", "14", "17", "20",
"23", "26", "3", "6", "9", "12", "15", "18", "21", "24", "27"
), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.