Add first versionof plot2.R