copy run_analysis.R from RTrainingSpace