Add first versionof plot1.R