Nothing
empty.plot <-
function(ylimVec = c(0,1),xlimvec = c(0,1),ylabVec = "",MainVec = "",...)
{plot(1,xlim = xlimvec,type = "n",axes = F,xlab = "",ylab =ylabVec,ylim = ylimVec,main = MainVec,...)}
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.