An R script to create a tidy data set from raw Samsung accelerometer data.