R - ksmooth取得できませんかKernSmoothパッケージには、私は私に次の例のために何も与えることksmooth機能やKernSmoothパッケージを取得するように見えることはできません

Question

動作するように：次のようになります

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")