First try

added run_analysis.R
source data