X <- rexp(1000,2)
X11()
hist_meth(X, Breaks='scott', Prob ="TRUE")
curve(dexp(x, 2), col = 2, lwd = 2, add = TRUE)
X11()
hist_meth(X, Breaks='FD', Prob ="TRUE")
curve(dgamma(x,1, 2), col = 2, lwd = 2, add = TRUE)
X11()
hist_meth(X, Breaks=100, Prob ="TRUE")
curve(dweibull(x,1, 0.5),col=2, lwd = 2, add = TRUE)
Run the code above in your browser using DataLab