Adding function for loading the data
Adding R script and PNG for plot1