```
x <- sin(seq(0, pi/2, length.out = 200))
H <- histss(x, n = 50, plotting = FALSE)
## Not run:
# plot(H, col = "gainsboro") # Compare with hist(x), or
# hist(x, breaks = H$breaks) # the same ## End(Not run)
```

Run the code above in your browser using DataLab