r语言的runmed函数