create run_analysis.R

draft work done in exploreUCI.R