Plot3.R

This is the R code to create the plot 3.