r - R中的lowess拟合曲线

Question

这段代码给了我平均值，但我不知道如何获得 +1sd 和 -1 sd 线。

y<-lowess(x[,1],x[,2],f=0.01)

谢谢你的帮助。

Answer 1

嗯，也许 msir:::loess.sd() 做你想做的事：

require(graphics)
plot(cars, main = "lowess(cars)")

require(msir)
low <- loess.sd(cars[ ,1], cars[ ,2])
lines(low$x, low$y)
lines(low$x, low$upper)
lines(low$x, low$lower)