added and ran plot1.R