R：二维非参数回归

Question

R 中的哪些包和函数可以执行二维非加性局部回归/平滑。例如考虑

b<-seq(-6*pi,6*pi,length=100)
xy<-expand.grid(b,b) 
x=xy[[1]]
y=xy[[2]]
z= sin(x)+cos(y) + 2*sin(x)*cos(y)
contour(b,b,matrix(z,100,100))

什么函数可以估计这个？

Answer 1

你可以用黄土做到这一点：

fit <- loess( z ~ x+ y, span=0.01 )
dev.new()

contour( b, b, matrix( predict(fit), 100, 100 ) )