Defines functions CalculateWAll

## calculate the distance between inner clusters, W
CalculateWAll <- function(x, n, kG)
    W <- rep(1, kG)
    for (k in 2:kG)
        W[k] <- cluster::clara(x, k, samples=20, medoids.x=FALSE)$objective


Try the AssocTests package in your browser

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

AssocTests documentation built on Nov. 17, 2017, 4:28 a.m.