run_analysis.R - training data

bug fix after testing