r - 整合 : evaluation of function gave a result of wrong length 时出错

Question

试试下面的代码:

library(pracma)

f <- function(x) 1

integrate(f,0,1)$value
quad(f,0,1)

quad() 工作正常，但集成() 报告错误消息:

Error in integrate(f, 0, 1) : evaluation of function gave a result of wrong length

这个集成()应用程序有什么问题？提前致谢!

Answer 1

你可以试试:

integrate(Vectorize(f),0,1)$value

请参阅 integrate 手册:f 应该是 R 函数采用数字第一个参数并返回相同长度的数字向量。 Vectorize 将使 f 成为一个这样的函数，它返回与输入相同长度的输出。