R/clusteringCoefficientPercent.R

Defines functions clusteringCoefficientPercent

Documented in clusteringCoefficientPercent

clusteringCoefficientPercent <- function(adj) {
	d <- adj[upper.tri(adj)]
	
	d1 <- d[which(d != 0)]
	return(length(d1) / length(d) *100)
}

Try the PCIT package in your browser

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

PCIT documentation built on May 29, 2017, 11 a.m.