Nothing
getQuantiles<-function(n.knots,mode){
den<-(n.knots+1)/2
tmp1<-(1:floor(n.knots/2))*mode/den
tmp2<-1-(1-mode)*(ceiling(n.knots/2):1)/den
c(tmp1,tmp2)
}
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.