Nothing
edf<-function(xin, xout)
{
n<-length(xout)
nn<-length(xin)
xin.use<-sort(xin)
out<-sapply(1:n, function(i, xin.use, xout) length(which(xin.use <= xout[i])), xin.use, xout)
out/nn
}
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.