data cleaning course project, working run_analysis.R