Update run_analysis.R

Added section to create the second data set