# NOT RUN {
data("gebco", package = "anglr")
library(silicate)
laea <- "+proj=laea +lon_0=147 +lat_0=-42"
longlat <- "+proj=longlat +datum=WGS84"
x <- SC(simpleworld) %>% copy_down(gebco + 500)
plot3d(x); rgl::aspect3d(1, 1, 0.07)
# }
Run the code above in your browser using DataLab