# NOT RUN {
data(coastlineWorldMedium, package="ocedata")
data(secchi, package="ocedata")
# }
# NOT RUN {
logdepth <- log10(secchi$depth)
cm <- colormap(logdepth)
par(mar=c(3, 3, 2, 1))
oce::drawPalette(colormap=cm)
oce::plot(coastlineWorldMedium, clongitude=10, clatitude=60, span=4000,
mar=par("mar"))
points(secchi$longitude, secchi$latitude, pch=1, col=cm$zcol, cex=0.5)
title("log10 of secchi depth in m")
# }
Run the code above in your browser using DataLab