run_analysis.R updated 24082014