R中的低坐标曲线

Question

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

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

感谢您的帮助。

Answer 1

嗯，perhabs 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)