R scripts and Figures