Create run_analysis.R

This is a R-code used in the project