"student.expenses" <-
structure(list(cell.phone = structure(c(2, 2, 1, 2, 1, 2, 2,
1, 2, 2), .Label = c("N", "Y"), class = "factor"), cable.tv = structure(c(2,
1, 1, 2, 1, 1, 1, 1, 2, 1), .Label = c("N", "Y"), class = "factor"),
dial.up = structure(c(2, 1, 1, 1, 1, 2, 1, 1, 1, 2), .Label = c("N",
"Y"), class = "factor"), cable.modem = structure(c(1, 1,
1, 2, 1, 1, 2, 1, 1, 1), .Label = c("N", "Y"), class = "factor"),
car = structure(c(2, 1, 2, 2, 1, 2, 1, 2, 2, 1), .Label = c("N",
"Y"), class = "factor")), .Names = c("cell.phone", "cable.tv",
"dial.up", "cable.modem", "car"), row.names = c("1", "2", "3",
"4", "5", "6", "7", "8", "9", "10"), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.