Create run_analysis.R

Coarse project. R code