Create histograms.R