R code and Presentation update