X <- rexp(1000,2)
par(mfrow=c(2,2))
hist_general(Data=X, Breaks='FD', Law="exp")
hist_general(Data=X, Breaks='scott', Law="exp")
hist_general(Data=X, Breaks='Sturges', Law="exp")
hist_general(Data=X, Breaks=60, Law="exp")
Run the code above in your browser using DataLab