add new R scripts