Added a preliminary plot2.R file