r - R中的uniroot内的uniroot

Question

我需要做的是：我需要找到根（y），如下所示：

func1 = function(x){function2(x)-y}
finalResult=uniroot(func1, range1)

问题是function2被定义为：

function2(x){
function3(z)-x
intermediateResult=uniroot(function3(z),range2).
return intermediateResult
}

因此，我在 uniroot 中有一个 uniroot。调试我看到函数2（x）中x的值作为覆盖所有范围1的值的向量传递。因此我无法找到最终的单个结果，但出现错误。

错误消息：
（f（）端点处的值不是相反的符号
另外：警告消息：
1：如果（is.na（f.lower））停止（“f.lower = f（lower）是NA”） :
条件的长度 > 1 并且只使用第一个元素）

我该如何解决这个问题？

非常感谢。