Added an R script containing all the steps to load the data