added kabita's R scripts