R/flexbeta.R

flexbeta <- function (dis,beta=-0.25,alpha=(1-beta)/2,gamma=0) 
{
    if (!inherits(dis,'dist')) stop("You must pass an argument of type 'dist'")

    dendro <- as.hclust(agnes(dis,method='flex',
               par.method=c(alpha,alpha,beta,gamma)))
    dendro
}

Try the optpart package in your browser

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

optpart documentation built on March 26, 2020, 6:18 p.m.