powered by
append.poly(x, y) area.poly(object, ...) get.pts(object) get.bbox(x) scale.poly(x, ...)
"gpc.poly"
holepoly <- read.polyfile(system.file("poly-ex/hole-poly.txt", package = "gpclib"), nohole = FALSE) area.poly(holepoly) stopifnot(area.poly(holepoly) == 8)
Run the code above in your browser using DataLab