Nothing
make.classes <- function(array, n) {
array<-array[!is.na(array)]
breaks<-seq(min(array),max(array), len=n)
interval<-findInterval(array,breaks,rightmost.closed=T)
counts<-tabulate(interval)
counts<-counts[order(breaks[2:n], decreasing=T)]
breaks<-breaks[order(breaks, decreasing=T)]
counts<-counts/sum(counts)
return(data.matrix(cbind(breaks,c(0,counts))))
}
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.