Updated plots
Updated R functions
Updated R code