Add Tidy Data and R Script