final script changes made to run_analysis.R