# NOT RUN {
p <- vect(system.file("ex/lux.shp", package="terra"))
h <- convHull(p)
hh <- convHull(p, "NAME_1")
rr <- minRect(p, "NAME_1")
plot(rr, lwd=5, border="gray")
plot(hh, "NAME_1", col=rainbow(10, alpha=.5), lwd=3, add=TRUE, plg=list(x="topright"))
lines(aggregate(p, "NAME_1"), col="blue", lty=2, lwd=2)
# }
Run the code above in your browser using DataLab