Added graphs and R code