added plot 1 R file