r语言编写choose的函数