"diamond" <-
structure(list(carat = c(0.17, 0.16, 0.17, 0.18, 0.25, 0.16,
0.15, 0.19, 0.21, 0.15, 0.18, 0.28, 0.16, 0.2, 0.23, 0.29, 0.12,
0.26, 0.25, 0.27, 0.18, 0.16, 0.17, 0.16, 0.17, 0.18, 0.17, 0.18,
0.17, 0.15, 0.17, 0.32, 0.32, 0.15, 0.16, 0.16, 0.23, 0.23, 0.17,
0.33, 0.25, 0.35, 0.18, 0.25, 0.25, 0.15, 0.26, 0.15), price = as.integer(c(355,
328, 350, 325, 642, 342, 322, 485, 483, 323, 462, 823, 336, 498,
595, 860, 223, 663, 750, 720, 468, 345, 352, 332, 353, 438, 318,
419, 346, 315, 350, 918, 919, 298, 339, 338, 595, 553, 345, 945,
655, 1086, 443, 678, 675, 287, 693, 316))), .Names = c("carat",
"price"), class = "data.frame", row.names = 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", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37",
"38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48"
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.