Update plot3.R

Some corrections were made