Update run_analysis.R

Adding header