Nothing
makedf<- function (tvar,pvar){
cm=data.frame(tvar,pvar)
cm=na.omit(cm)
tvar=cm$tvar
pvar=cm$pvar
dd=difftime(tvar,tvar[1],units="hours")
dd=as.numeric(dd)
fr=data.frame(tvar=dd,pvar=pvar)
return(fr)
}
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.