Почему в R есть сгенерированные NA формы ksmooth

Question

Почему существуют НС, сгенерированные в форме ksmooth в R?

set.seed(1)
x <- sort(rnorm(1000,0,2))
e <- rnorm(1000)
y <- x + e
ks <- ksmooth(x,y,kernel='normal')
ks$y[c(944,945)]
[1] NA NA

Answer 1

Поскольку пропускная способность по умолчанию равна 0,5, и эти две точки имеют значения x, которые больше 0,5 от любых других. Я полагаю, что они оба происходят в районе 6,8.

plot(x,y)
lines(ks,col = "blue")

Если вы увеличите пропускную способность, вы должны удалить NA s.

Answer 2

Я только что разобрался в проблеме, благодаря @ joran.

> min(abs(x - ks$x[944]))
[1] 0.7446518
> min(abs(x - ks$x[945]))
[1] 0.7507665

Мы видим, что ближайшие точки дальше, чем полоса пропускания по умолчанию 0,5.