powered by
data(exp.sd)
data(exp.sd) hist(exp.sd, prob=TRUE) lines(density(exp.sd), col="red", lwd=2)
Run the code above in your browser using DataLab