Nothing
histDens <- function( x, breaks = "Sturges", ... ) {
h <- hist( x, breaks = breaks, plot = FALSE )
d <- density( x )
hist( x, breaks = breaks, prob = TRUE,
ylim = c( 0, max( c( h$density, d$y ) ) ), ... )
lines( d, lwd = 2 )
invisible( NULL )
}
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.