Displaying 1 result from an estimated 1 matches for "prsurf".
Did you mean:
trsurf
2013 Mar 20
0
unexpected local minima/maxima with surf.gls
...0.67,0.67,0.67,0.74,0.70,0.70,0.66,
0.66,0.66,0.67,0.67,0.67,0.67,0.67,0.67,0.66,0.66,0.66,0.66,0.67,0.67,0.66,0.67,0.67,0.66,0.66,0.66,0.66,
0.66,0.66,0.66,0.67,0.66,0.66,0.66,0.66,0.66,0.66,0.66,0.66,0.66)
dat <- data.frame(x, y, z)
kr <- surf.gls(2, expcov, dat, d = 0.7, nx = 1000)
prsurf <- prmat(kr, min(x), max(x), min(y), max(y), 500)
image(prsurf, col = rainbow(1000))
One can see that local maxima/minima are found where data were measured:
points(x, y, cex = 2)
The surface I obtain can be visualised here:
http://nsa34.casimages.com/img/2013/03/16/130316115621267122.pn...