R scripts

uploaded R scripts