powered by
histss(x, n = 100, plotting = FALSE)
hist
histc
x <- sin(seq(0, pi/2, length.out = 200)) H <- histss(x, n = 50, plotting = FALSE) plot(H, col = "gainsboro") # Compare with hist(x), or hist(x, breaks = H$breaks) # the same
Run the code above in your browser using DataLab