R/aubpval.R

In ajay-cogsci/fastclusteR: Clustering at Light Speed

#' A totalclusteR Function
#'
#' This function allows you to expedidite Dr. B's stupid clustering work !
#' @title aubpval
#' @param data Enter ther data file in .csv format
#' @keywords cluster validation
#' @export
#' @examples
#' totalclusteR()
#'

r = getOption("repos")
r["CRAN"] = "http://cran.us.r-project.org"
options(repos = r)


install.packages("factoextra")
install.packages("pvclust")
install.packages("cluster")


library("pvclust")
library("cluster")
library("factoextra")

set.seed(123)


aubpval <- function(data)
{
  res <- pvclust::pvclust(data, method.hclust = "average",method.dist = "correlation", nboot = 1000)
  plot(res, hang=-1, cex=0.5)
  pvclust::pvrect(res)
}