#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.