Create run_analysis.R

Upload for Course assignment