Update run_analysis.R

Added code to save generated tidy data