"resistors" <-
structure(list(midpoints = c(0.337, 0.362, 0.387, 0.412, 0.437,
0.462, 0.487, 0.512, 0.537, 0.562, 0.587, 0.612, 0.637, 0.662,
0.687, 0.712, 0.737, 0.762, 0.787, 0.812, 0.837, 0.862, 0.887,
0.912, 0.937, 0.962, 0.987, 1.012), counts = c(1, 1, 2, 9, 24,
34, 44, 43, 56, 41, 46, 44, 32, 22, 29, 21, 11, 14, 7, 4, 3,
4, 1, 2, 1, 0, 1, 3)), .Names = c("midpoints", "counts"), 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"), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.