Nothing
heart.rate<-data.frame(hr = c(96,110,89,95,128,100,72,79,100,
92,106,86,78,124, 98,68,75,106,
86,108,85,78,118,100,67,74,104,
92,114,83,83,118,94,71,74,102),
subj=gl(9,1,36),
time=gl(4,9,36,labels=c(0,30,60,120)))
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.