R - 无法使ksmooth或KernSmooth包运行

Question

我似乎无法获得ksmooth函数或KernSmooth包来为我提供以下示例：

x <- 1:100
y <- 3*sin(x/10)+rnorm(100)
plot(x,y)

看起来像这样：

http://oi63.tinypic.com/jh5u37.jpg

ksmooth函数什么都不做，只是给了我相同的点。使用KernSmooth软件包，我似乎得到的是线性近似。

为什么ksmooth(x,y,kernel="normal",bandwidth=0.5)只能给我相同的观点？另外我如何使用KernSmooth软件包？感谢。

Answer 1

您选择的带宽= 0.5太小。

x <- 1:100
y <- 3*sin(x/10)+rnorm(100)
plot(x,y)
lines(ksmooth(x, y, "normal", bandwidth = 5), col = "red")

library(KernSmooth)
fit <- locpoly(x, y, bandwidth = 5)
lines(fit, col = "blue")