Update plot1.R

removed setwd()