Project R Script for creating tidy data set