# NOT RUN {
RequireMap("kant.map")
nbs <- Neighbours(tkart$kant.map, kt_id <- 18)[[1]]
PlotKant(c(kt_id, nbs), col=c("red", rep("green", length(nbs))) )
# works as well for communities and for vector of ids
RequireMap("polg.map")
nbs <- Neighbours(tkart$polg.map, polg_id <- c(3851, 3352))
PlotPolg(c(polg_id, unlist(nbs)),
col=c(rep("red", 2), rep("green", length(unlist(nbs)))))
# }
Run the code above in your browser using DataLab