Adding the R scripts and final figs

Adding the final png figures and R scripts used to produce them