Created R script for loading the data