if (FALSE) {
# This example will not run, and we do not provide the dummy "gebco_file.nc" file,
# because a copyright license must be signed on the GEBCO website before the data can be
# downloaded and used. We just provide this line as an example for synthax.
readGEBCO.bathy(file="gebco_file.nc", resolution=1) -> nw.atl
# Second not-run example, with GEBCO_08 and SID:
readGEBCO.bathy("gebco_08_7_38_10_43_corsica.nc") -> med
summary(med) # the bathymetry data
readGEBCO.bathy("gebco_SID_7_38_10_43_corsica.nc")-> sid
summary(sid) # the SID data
colorRampPalette(c("lightblue","cadetblue1","white")) -> blues # custom col palette
plot(med, n=1, im=T, bpal=blues(100)) # bathymetry
as.numeric(rownames(sid)) -> x.sid
as.numeric(colnames(sid)) -> y.sid
contour(x.sid, y.sid, sid, drawlabels=FALSE, lwd=.1, add=TRUE) # SID
}
Run the code above in your browser using DataLab