How To Define Function In R