Set Function In R