Update run_analysis.R

added the outcommented block that writes the tidy data set to disk