adding plot2.R
bugfix in plot1.R