`histpp` <-
function(x, xname="", utitle="") {
hist(x,main=utitle,xlab="", col="lightgrey", ylab=xname)
rug(x, side=1, ticksize=0.03, col="red")
rug(x, side=1, ticksize=0.01, col="white")
rug(x, side=1, ticksize=0, col="black")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.