Plot1.R

This is the R code to create the first plot.