trmat(obj, xl, xu, yl, yu, n)
surf.ls
surf.gls
n x n
x
y
z
contour
image
topo.kr <- surf.ls(2, topo) trsurf <- trmat(topo.kr, 0, 6.5, 0, 6.5, 50)