edit run_analysis.R, final