run_analysis.R - testing data

same as for Training data, except for Testing