R算法修改