在R中的另一个积分上集成一个功能

Question

我正在尝试使用R在数字上评估以下表达式：

t2，t3和mu的值被当作常量，它们从包装在其中的较大函数传递到我的代码中。这是我目前所拥有的：

v4_conc_pt1 = integrate(Vectorize(function(y){
  ((exp(-y))/(1 - exp(-t2)))*(integrate(Vectorize(function(x){
    (1 - exp(-mu*(t2 - y + x)))*((exp(-x))/(1 - exp(-t3)))
  }), 0, t2))
}), 0, t3)

当我运行它时，它返回以下错误：

Error in ((exp(-y))/(1 - exp(-t2))) * (integrate(Vectorize(function(x) { : 
  non-numeric argument to binary operator

我一直在尝试使它工作一段时间，但我很茫然。我将不胜感激任何帮助。