added plot.R