r语言编写函数