Create run_analysis.R

script to collect, work with, and clean a data set