Updated version of the R scripts and figures, sent by Dom