create run_analysis rscript