Nothing
plot.episplineDensity <- function (x, ...)
{
plot (x$x.pts, x$y.est, type = "l", xlab = "X", ylab = "Density Estimate", main = "Epispline Density Estimate")
points (x$x, rep (0, length (x$x)), col="red", pch=1, cex=1.5)
}
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.