adding R scripts for plotting