R：錯誤EXPR沒有評價長度爲n的一個目的

Question

創建這樣兩種功能與R：

esp<-function(x) x*dexp(x,lambda) 

然後：

esp2<-function(R) integrate(esp,0,R) 

我可以繪製的第一個，但是當我嘗試繪圖第二個我得到一個錯誤：

'expr' did not evaluate to an object of length n 

有了一些研究，我必須使用sapply功能，或矢量化功能。但首先，我不知道爲什麼，其次它不起作用。

Answer 1

需要，因爲curve預計這樣的爲它計算繪圖數據功能Vectorize它。它不工作，因爲integrate輸出一個複雜的對象。因此，你需要將輸出的相關部分隔離：

esp2 <- function(R) integrate(esp,0,R)$value 
plot(Vectorize(esp2))