R program to read in raw data and create tidy data set