if (FALSE) {
library(geomapdata)
data(cosomap)
data(faults)
data(hiways)
data(owens)
cosogeol = getGEOmap("/home/lees/XMdemo/GEOTHERM/cosogeol")
cosogeol = boundGEOmap(cosogeol)
proj = cosomap$PROJ
plotGEOmapXY(cosomap, PROJ=proj, add=FALSE, ann=FALSE, axes=FALSE)
plotGEOmapXY(cosogeol, PROJ=proj, add=TRUE, ann=FALSE, axes=FALSE)
plotGEOmapXY(cosomap, PROJ=proj, add=TRUE, ann=FALSE, axes=FALSE)
plotGEOmapXY(faults, PROJ=proj, add=TRUE, ann=FALSE, axes=FALSE)
}
Run the code above in your browser using DataLab