Update run_analysis.R

Peer_assessment