Edited and tested run_analysis.R