"galileo" <-
structure(list(init.h = c(600, 700, 800, 950, 1100, 1300, 1500
), h.d = c(253, 337, 395, 451, 495, 534, 573)), .Names = c("init.h",
"h.d"), row.names = c("1", "2", "3", "4", "5", "6", "7"), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.