R script for cleaning UCI HAR Dataset