R/rand.R

"rand" <-
function (tab) #Hubert & Arabie
{
    n <- sum(tab)
	1 + (sum(tab^2) - (sum(rowSums(tab)^2) + sum(colSums(tab)^2))/2)/choose(n, 2)
}

Try the blockmodelingVer036 package in your browser

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

blockmodelingVer036 documentation built on July 1, 2020, 3:02 p.m.