Nothing
plot.bundledensity <-
function (x, ...)
{
hist(x$random, breaks = seq(min(x$random), max(x$random),
length = 30), freq = F, xlim = range(x$x), main = "density",
...)
lines(x$x, x$density, col = "red")
}
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.