if (FALSE) {
library(geomapdata)
### Download and install ETOPO Data
## data(ETOPO5)
load(ETOPO5)
glat =c(45.4, 49)
glon = c(235, 243)
b5 = getETOPO(ETOPO5, glat, glon)
image(x=attr(b5, 'lon'), y=attr(b5,'lat'), z=b5, col=terrain.colors(100) )
contour( x=attr(b5, 'lon'), y=attr(b5,'lat'), z=b5, add=TRUE)
}
Run the code above in your browser using DataLab