Script for creating tidy data set