replaced work.R with run_analysis.R