R script for tidying Samsung Human Activity Using Smartphones dataset