用R语言实现尾部风险网络TENET中出现replacement has length zero的问题

问题遇到的现象和发生背景

我目前在用R语言实现尾部风险网络TENET中出现replacement has length zero的问题，但我并行计算其他列时没有问题也并未出现此类状况，请帮我排查一下可以么？

问题相关代码，请勿粘贴截图

运行结果及报错内容

我的解答思路和尝试过的方法

我想要达到的结果