Nothing
intake <- data.frame(
pre = c(5260,5470,5640,6180,6390,
6515,6805,7515,7515,8230,8770),
post = c(3910,4220,3885,5160,5645,
4680,5265,5975,6790,6900,7335))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.