Script for obtaining the tidy data set