Added r script and tidy dataset