R Script Complete
Added Tidy Data file