"heartrate" <-
structure(list(age = c(18, 23, 25, 35, 65, 54, 34, 56, 72, 19,
23, 42, 18, 39, 37), maxrate = c(202, 186, 187, 180, 156, 169,
174, 172, 153, 199, 193, 174, 198, 183, 178)), .Names = c("age",
"maxrate"), 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.