Clean data set run_analysis.R version two