Update run_analysis.R

run_analysis (Getting-and-Cleaning-Data)