First version - code R plotting plot2.png and correction plot1.png