changes to R script histograms