# NOT RUN {
surfaceArea(volcano)
image(surfaceArea(volcano,byCell=TRUE))
data(meuse.grid)
gridded(meuse.grid) = ~x+y
image(surfaceArea(meuse.grid["dist"], byCell=TRUE))
surfaceArea(meuse.grid["dist"])
# }
Run the code above in your browser using DataLab