Update plot3.R

cleanup post merge