紧急求助，因项目需要用这个算法，但是不知道R中是否有这个算法，如果有，是哪个包，烦请达人告知，多谢！！