R : Error expr did not evaluate to an object of length 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 函数或 vectorize 函数。但首先，我不知道为什么，其次它不起作用。

Answer 1

您需要对其进行矢量化，因为curve 需要这样的函数来计算绘图数据。它不起作用，因为 integrate 输出一个复杂的对象。因此，您需要隔离输出的相关部分:

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