R/makeClustList.R

In PAMhm: Generate Heatmaps Based on Partitioning Around Medoids (PAM)

#' @noRd
makeClustList <-
function (xlslist, clusternum, metric = "manhattan")
{

  clustlist <- plyr::llply(xlslist, function(x) {
                      y <- list()
                      y$dat <- x
                      y$PAM <- lapply(clusternum, function(z) {
                                      p <- list()
                                      p$clusternum <- z
                                      p$PAM <- pam(x, z, metric = metric)
                                      p
                                      })
                      y
                      })

}