R中的低坐标曲线

Question

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

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)