Nothing
"dens2func" <- function(x, ...){
den1 <- density(x,...)
f <- function(w) approx(den1$x, den1$y, w, yleft=0, yright=0)$y
class(f) <- "dfun"
f
}
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.