Create run_analysis.R

run_analysis and run_calc functions