add R scripts