added plot3.R file