initial code of run_analysis.R