R/ImageOcean.R

Defines functions ImageOcean

Documented in ImageOcean

## =============================================================================
## Plot Ocean bathymetry
## =============================================================================

ImageOcean <- function(...) {
  dots <- list(...)
  if (is.null(dots$xlab)) 
    dots$xlab  <- "longitude"
  if (is.null(dots$ylab)) 
    dots$ylab  <- "latitude"
  if (is.null(dots$clab)) 
    dots$clab  <- "depth, m"
  if (is.null(dots$NAcol)) 
    dots$NAcol  <- "black"
  HH <- get("Hypsometry") # import package data set from /data  
  zz       <- HH$z
  zz[zz>0] <- NA   
  do.call("image2D", c(alist(zz, x = HH$x, y = HH$y), dots))
}

Try the plot3D package in your browser

Any scripts or data that you put into this service are public.

plot3D documentation built on May 29, 2024, 5:46 a.m.