run_analysis.R document

Script for assignment