reupload run_analysis.R

fixed buglet in script