R code and new figures
more new figures, tex update