r - R : エラー expr は長さ n のオブジェクトに評価されませんでした

Question

この方法で R を使用して 2 つの関数を作成します。

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

それから ：

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

最初のものはプロットできますが、2 番目のものをプロットしようとするとエラーが発生します。

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

いくつかの調査では、sapply 関数またはベクトル化関数を使用する必要があります。しかし、第一に、理由がわかりません。第二に、機能しません。

Answer 1

プロットデータを計算するためにそのような関数を期待しVectorizeているので、それが必要です。複雑なオブジェクトを出力するcurveため、機能しません。integrateしたがって、出力の関連部分を分離する必要があります。

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