R/rand2.R

"rand2" <-
function (clu1,clu2) #Hubert & Arabie
{
	tab<-table(clu1,clu2)
	1 + (sum(tab^2) - (sum(rowSums(tab)^2) + sum(colSums(tab)^2))/2)/choose(sum(tab), 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.