Create ExData_Plotting1.R