Update run_analysis.R

Principal R script