R script for cleaning data for Human Activity Recognition Using Smartphones