Nothing
##' make a simple freqpoly and histogram
##'
##' @param x data
##' @param ... passed to hist
##' @return NULL
##'
##' @export
"simple.freqpoly" <-
function (x,...) {
tmp<-hist(x,probability=FALSE,...)
lines(c(min(tmp$breaks),tmp$mids,max(tmp$breaks)),c(0,tmp$counts,0),type="l")
}
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.