# NOT RUN {
{
require(raster)
# build polygons
df1 <- data.frame(x=c(1, 5, 10, 2, 1), y=c(10, 9, 8, 7, 10))
df2 <- data.frame(x=c(2, 6, 5, 4, 2), y=c(10, 9, 7, 4, 10))
p <- list(Polygons(list(Polygon(df1)), ID=1),
Polygons(list(Polygon(df2)), ID=2))
p <- SpatialPolygons(p)
# check overlap
co <- geCheck(p)
# show distance matrix
plot(p)
plot(co$overlap.shp, col="red", add=TRUE)
}
# }
Run the code above in your browser using DataLab