data("rongelapUTM")
rongelapUTM = unwrap(rongelapUTM)
plot(rongelapUTM, main="Rongelap island")
if(require('mapmisc')) {
bgMap = openmap(rongelapUTM, buffer=300, maxTiles=2)
plot(bgMap)
points(rongelapUTM, cex=0.4)
scaleBar(rongelapUTM, 'left')
}
Run the code above in your browser using DataLab