Generate a convex hull around clusters to be added to data

Supplements a data set with information needed to draw a convex hull.

Usage

gen_chull(data, cl)

Arguments

data

data set

cl

numeric vector of cluster labels

Value

list with convex hull containing points and edges

Examples

data(clusters)
cl_dist <- dist(clusters[,1:5])
cl_hw <- hclust(cl_dist, method="ward.D2")
cl_w <- cutree(cl_hw, 3)
cl_chull <- gen_chull(clusters[,1:5], cl_w)
if (interactive()) {
  require(tourr)
  animate_xy(cl_chull$data[,1:5],
    col=cl_chull$data[,6],
    edges=cl_chull$edges,
    edges.col=cl_chull$edge_clr,
    axes="bottomleft")
}