adding more R scripts