changes in histogram.R

I'm trying to change something in my fork, to see if you can see it.