# NOT RUN {
data("rongelapUTM")
plot(rongelapUTM, main="Rongelap island")
# }
# NOT RUN {
load(url("http://www.filefactory.com/file/54e8egxfddul/n/MHL_adm0_RData"))
rongelapLL = spTransform(rongelapUTM, gadm@proj4string)
plot(rongelapLL)
plot(gadm, add=T)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab