added R script that creates a tidy dataset