R/ARI.R

ARI <- function (x=NULL, y=NULL)
{
    x <- as.vector(x)
    y <- as.vector(y)
    
    tab <- table(x,y)
    
    ARI= classAgreement(tab)$crand
    return(ARI)
}

Try the MixGHD package in your browser

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

MixGHD documentation built on May 2, 2019, 5:49 p.m.