How To Define A Function In R