added my figures and R scripts