大家好，我正在尝试优化下面的R代码，因为它执行起来非常…