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