Update run_analysis.R

My final piece of code for the project.