Added file description to histogram.R

Thought this file could use some comments at the top describing the purpose of the code