My R script run_analysis.R to do the job.