added run_analysis.R file

added the script file