用R绘制带参数积分的函数曲线

与

但是R抱怨说

在cosh（beta）-rho*r中：较长的对象长度不是较短对象长度的倍数

---

我认为所有变量都是标量。那么如何正确地绘制它呢？谢谢。

g
g+1哇。你在监视我吗？这就是我即将发布的答案，选择了
gv是的，我的读心能力现在扩展到了潜在的回答者以及来自海报的回答者。哎呀，我认为“1.568874，绝对错误<1e-06”是1.568874的友好表示，我想补充一下：这说明了为什么我们（特别是我：-））应始终仔细检查函数文档的“值”部分，以避免函数返回的内容出现这种混淆。天真的用户（大多数时候也叫我）键入
integrate（funcfoo，0,1）
，并在控制台上打印出一个很好的数字，然后完全忘记了
integrate（funcfoo，0,1）->intfoo
会产生一些完全不同的结果。是的，如果我能声称总是检查“值”，那就好了但在本例中，我只是在g（0）上使用了str（），并立即被提醒返回对象的更复杂性质。你在监视我吗？这就是我即将发布的答案，选择了
gv是的，我的读心能力现在扩展到了潜在的回答者以及来自海报的回答者。哎呀，我认为“1.568874，绝对错误<1e-06”是1.568874的友好表示，我想补充一下：这说明了为什么我们（特别是我：-））应始终仔细检查函数文档的“值”部分，以避免函数返回的内容出现这种混淆。天真的用户（大多数时候也叫我）键入
integrate（funcfoo，0,1）
，并在控制台上打印出一个很好的数字，然后完全忘记了
integrate（funcfoo，0,1）->intfoo
会产生一些完全不同的结果。是的，如果我能声称总是检查“值”，那就好了但在本例中，我只是在g（0）上使用了str（），并立即被提醒返回对象的更复杂性质。
curve(g(x),from=0,to=1)

g<-function(r)
   {
     integrate(
       function(beta)
       {
         1/(cosh(beta)-rho*r)^(n-1)
       }
     ,lower=0,upper=Inf)
   }

curve(g(x),from=0,to=1)

g<-function(r)
    {
      integrate(
        function(beta)
        {
          1/(cosh(beta)-rho*r)^(n-1)
        }
      ,lower=0,upper=Inf)$value   # integrate would return a list otherwise
    }
 gv <- Vectorize(g)  
 # Since `g` is not naturally going to handle the vector that `curve` will send
 curve(gv(x),from=0,to=1)