R script to load the data