Nothing
monot <-
function(aa){ while(sum(diff(c(-Inf,aa))<0)>0) aa[diff(c(-Inf,aa))<0]<-aa[which(diff(c(0,aa))<0)-1];return(aa)}
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.