Upload final R code and tidy data set