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