Update run_Analysis.R

Correct test that was left in final version