R script

R script to create tidy dataset for assignment