R/clustering-algorithm-wrappers.R

Defines functions hclustWrapper pamWrapper kmeansWrapper

kmeansWrapper <- function(data, k, nstart = 20, iter.max = 1000, ...) {
    if (nstart > nrow(data)) nstart = nrow(data)
    kmeans(x = data, centers = k, nstart = nstart, iter.max = iter.max, ...)$cluster
}

pamWrapper <- function(data, k, ...){
    cluster::pam(data, k, cluster.only = T, ...)
}

hclustWrapper <- function(data, k, ...){
    cutree(hclust(dist(data), ...), k = k)
}

Try the PINSPlus package in your browser

Any scripts or data that you put into this service are public.

PINSPlus documentation built on Aug. 7, 2020, 1:06 a.m.