Update run_analysis.R

Added section at the end to write the tidy data to a file.