自己发明的 在R中的 Floyd算法