R script getting and cleaning data from http://archive.ics.uci.edu/ml/datasets/Human+Activity+Recognition+Using+Smartphones