r - 图的特定部分需要集成，它来自多项式，但每次在 rstudio 中出现错误

Question

我有这些代码：

f <- function(x){y ~ poly(x, 4)}

integrate(f, lower = 670, upper = 750)

还尝试了以下代码：

f <- function(x){y ~ poly(x, 4)}

integrate(Vectorize(f, lower = 670, upper = 750))

我也尝试了这段代码，但在这两个代码中我都得到了这个错误：

积分错误（f，lower = 670，upper = 750）：
函数评估给出了错误长度的结果

任何帮助深表感谢。

标签： rfunctionpolynomialsintegrate