require(tripack)
data(columbus)
col.tri.nb <- tri2nb(coords, row.names=rownames(columbus))
library(maptools)
plotpolys(polys, bbs, border="grey")
plot(col.tri.nb, coords, add=TRUE)
title(main="Raw triangulation links")
Run the code above in your browser using DataLab