Update run_analysis.R

Almost all done - except the last step. Need to do the group by/sum and write out the resulting dataset.