Added R script for plot2