Create run_analysis.R

writes out tidyData.txt