R scripts for analyzing UCI Human Activity Recognition Using Smart Phone  data set