R scripts used to create the plots for the ExData_Plotting1 assignment