==== Slide histogram ====
<code>
x<-rnorm(200)
slider.hist(x)
</code>