Finished run_analysis.r