Create emailhistograms.R