Plot1.R

R script for plot 1