added new R scripts