R/clusteringCoefficientPercent.R

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 1, 2019, 8:10 p.m.