checking in run_analysis.R first version