Create stats_and_graphics.Rscript