Update plot3.R

remove setwd()