library(raster)
# import raster image
data(orforest)
# find the 2nd order least squares polynomial surface
polyfit <- fitplane(orforest, order = 2)
# create raster of polyfit
x <- setValues(orforest, polyfit)
# plot the fit
plot(x)
Run the code above in your browser using DataLab