R 如何实现一个迭代次数为n的函数？

我正在尝试实现此功能-

这就是我到目前为止所做的-

func3 <- function(x) {
   sum((x^4 - 16*x^2 + 5*x)/2)
}

---

func3我以前的答案是错的。我想你需要的是这个。x是n维的向量。您需要计算n维上的函数（在本例中为2）。然后，该图是曲面图，我们可以使用光栅包进行绘制

库（光栅）
图书馆（拉斯特维斯）
我先前的回答是错误的。我想你需要的是这个。x是n维的向量。您需要计算n维上的函数（在本例中为2）。然后，该图是曲面图，我们可以使用光栅包进行绘制

库（光栅）
图书馆（拉斯特维斯）
F