inst/snippet/histogram-rug-density.R

In fastR: Data sets and utilities for Foundations and Applications of Statistics by R Pruim

x <- rnorm(100)
p <- histogram(~x, type='density',
            panel=function(x,y,...) {
                panel.rug(x,...)
                panel.histogram(x,...)
                panel.mathdensity(
                    dmath=dnorm, args=list(mean=mean(x),sd=sd(x)),
                    lwd=5, col="black", lty=1, alpha=0.5,
                    ...)
            }
     )
print(p)