Code and Output for Get and Clean Data Project

one souce code run_analysis.R
two output: run_analysis.txt; run_analysis.csv