Update plot3.R and plot4.R