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