updating plot3.R