Added R code and figures
update bib/tex