Create run_anaysis.R