R script to create Plot1
R script to create Plot2