R scripts added