adding R scripts