Plot 3

* Added plot and R code