Nothing
## Used by ppplot
plotProb <- function(x0, y0, x1, y1, prob, cpal, ...) {
ytmp <- y0
for (s in 1:length(prob)) {
ytop <- ytmp+prob[s]
rect(x0, ytmp, x1, ytop, col=cpal[s], ...)
ytmp <- ytop
}
}
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.