Update plot3.R

Delete setwd