Create load.R

This cleans the original data with 2 millions rows to create at 2880 rows of tidy data.