run_analysis.R complete to project point #4