Added .R scripts and figures