plot2 R script