R/A.chc.R

Defines functions A.chc

A.chc <- function(hc) {
    hts <- diff(c(0,hc$hei))
    unA <- .Call(C_UnNormA,hc$mer,hts)
    return(unA/sum(hts))
}

Try the compHclust package in your browser

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

compHclust documentation built on May 1, 2019, 8:42 p.m.