繪製與參數組成的函數，使用R

Question

曲線隨着

n<-3; rho<-0.5; 

我想提請功能的

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

我試圖

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

但[R抱怨圖片那

在COSH（測試版） - 哌* R：較長的對象長度不短對象長度

的倍數我認爲所有變量都是標量。那麼如何正確繪製它？謝謝。

Answer 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)