Clean data set run_analysis.R Final version