Updated R Script+ Tidy Data Set txt file