R Script to clean up a UCI HAR data set