An R script that cleans up the wearable computing data set and gets it tidy.