cleaned run_analysis.R