Update Plot3.R

Correcting the code