Create run_anlysis.R

script for performing the analysis