# load hawaii data
data(hawaii)
data(hawaii.sites)
# class "bathy"
class(hawaii)
summary(hawaii)
if (FALSE) {
## use of plot.bathy to produce a bathymetric map
# creation of a color palette
pal <- colorRampPalette(c("black","darkblue","blue","lightblue"))
# Plotting the bathymetry
plot(hawaii,image=TRUE,draw=TRUE,bpal=pal(100),asp=1,col="grey40",lwd=.7)
# Adding coastline
require(mapdata)
map("worldHires",res=0,fill=TRUE,col=rgb(.8,.95,.8,.7),add=TRUE)
# Adding hawaii.sites location on the map
points(hawaii.sites,pch=21,col="yellow",bg=col2alpha("yellow",.9),cex=1.2)
}
Run the code above in your browser using DataLab