R script for creating tidy data for HAR project