finish coding run_analysis.R