typo in plot3.R fixed