Plot1.R

R code for Plot 1