## Not run:
# data(nuts2006)
# # Get units borders
# nuts0.outer <- getOuterBorders(nuts0.spdf)
# # Plot Countries
# plot(nuts0.spdf, border = NA, col = "grey60")
# # Plot borders
# plot(nuts0.outer, col = sample(x = rainbow(nrow(nuts0.outer))),
# lwd = 3, add = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab