powered by
surface3d
decorate3d
## S3 method for class 'RasterLayer': plot3D(x, maxpixels=100000, zfac=1, drape=NULL, col, rev=FALSE, adjust=TRUE, ...)
if (require(rgl)) { data(volcano) r <- raster(volcano) extent(r) <- c(0, 610, 0, 870) drape <- cut(r, 5) plot3D(r, drape=drape, zfac=2) }
Run the code above in your browser using DataLab