Sub Function In R