R/add_hull.R

In jedick/canprot: Chemical Analysis of Proteins

# canprot/add_hull.R
# Add convex hull around points 20200923
# Moved from chem16S 20240310

add_hull <- function(x, y = NULL, ...) {
  xy <- xy.coords(x, y, recycle = TRUE, setLab = FALSE)
  ihull <- chull(xy$x, xy$y)
  polygon(xy$x[ihull], xy$y[ihull], ...)
  invisible(ihull)
}