Initial addition of plot1.R - PNG not done