v1 of run_analysis.R