# 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 %
checkOverlap(p[1,], p[2,])
}
# }
Run the code above in your browser using DataLab