Create plot3.r

R code for plot 3