请问，在R中如何用程序控制结构编写函数，使其功能等价于sort函数。谢谢。