Update Plot3.R

Removed extraneous code