r - R中的双重积分与限制中的变量

Question

我正在尝试用 R 编写一个双积分，但我遇到了一些错误。积分如下：

这是我正在尝试的代码：

Integ2=function(y,s) {integrate(Vectorize(function(x) {y-1}), 0,((y-s)/y))$value}


Integ2_2<-function(s) {integrate(function(y) {Integ2}, s, 4)$value}

Integ2_2(3)

但是当我尝试运行最后一位（即，在 s=3 时获取 Integ2_2 的值）时，出现以下错误：

Error in integrate(function(g) { : 
  evaluation of function gave a result of wrong length

我不确定我做错了什么。我试图看看其他问题，但我真的无法解决这个问题。我知道它一定很简单，但我真的不知道如何解决它。任何提示将不胜感激！

标签： rintegral