data("gambiaUTM")
plot(gambiaUTM, main="gambia data")
download.file("http://thematicmapping.org/downloads/TM_WORLD_BORDERS-0.3.zip",
"borders.zip")
unzip("borders.zip")
worldBorders = readOGR(".", "TM_WORLD_BORDERS-0.3")
africa = worldBorders[worldBorders$REGION ==2,]
plot(spTransform(africa, gambiaUTM@proj4string), add=T)
Run the code above in your browser using DataLab