Update stats_and_graphics.Rscript