Added more rscripts
More scrips and figs