r - base R 中的曲线函数

Question

抱歉，这可能很基础，但我是新手。我会制作很多曲线，所以一些建议对我很有用。

我有一个要绘制的函数:

f <- function(x) sum(4*sin(x*seq(1,21,2))/(pi*seq(1,21,2)))

使用

curve(f, -pi, pi, n=100)

不幸的是，这对我不起作用。请指教。谢谢

Answer 1

您的函数未矢量化。目前它只会接受一个标量输入并输出一个返回值。 curve 期望它应该能够输入它想要绘制的 x 值的向量，并且应该接收响应值的向量。最简单的解决方案是仅使用 Vectorize 将您的函数自动转换为可以接受矢量输入的函数。

f2 <- Vectorize(f)
curve(f2, -pi, pi, n = 100)

但是，您可能只想直接编写该函数的矢量化版本。