This is the run_analysis R script