R/rand2.R

#' @rdname rand
#' 
#' @export

"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 blockmodelingRoxygen2 package in your browser

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

blockmodelingRoxygen2 documentation built on June 9, 2020, 3:30 p.m.