Clean data set run_analysis.R version one