"homework" <-
structure(list(Private = c(21.29999924, 16.79999924, 8.5, 12.60000038,
15.80000019, 19.29999924, 18.5, 24.60000038, 18.29999924, 12.89999962,
15.69999981, 18.39999962, 18.70000076, 22.60000038, 20.5), Public = c(15.30000019,
17.39999962, 12.30000019, 10.69999981, 16.39999962, 11.30000019,
17.60000038, 13.89999962, 20.20000076, 16.79999924, 23.60000038,
14.19999981, 5.699999809, 18.79999924, 9.399999619)), .Names = c("Private",
"Public"), row.names = c("1", "2", "3", "4", "5", "6", "7", "8",
"9", "10", "11", "12", "13", "14", "15"), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.