Nothing
iv<-function(sobj){
k<-sum(sobj$n.event>0)
if (k <= 100) q95<-(3.6792+0.5720*log(k)-0.0567*(log(k))^2+0.0027*(log(k))^3)/k
else q95<-(3.7752+0.5062*log(k)-0.0417*(log(k))^2+0.0016*(log(k))^3)/k
q95}
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.