Update run_analysis.R

Set descriptive variable names