Uploading R script and the final dataset on github