# NOT RUN {
f <- system.file("ex/lux.shp", package="terra")
v <- vect(f)
#w <- simplify(v, .02)
#e <- erase(w)
#g <- gaps(e)
#plot(e, lwd=5, border="light gray")
#polys(g, col="red", border="red")
# }
Run the code above in your browser using DataLab