run_analysis.r code

updated final file name