adding R scripts, v1