1st plot and R script