edit run_analysis.R, corrected, still needs comments