This function calculates the redefined global clustering coefficient two-mode networks. This this blog entry for the paper.

The only parameter given to this function is the binary or weighted two-mode network.

Example

# Load tnet
library(tnet)

# Load a weighted two-mode network
net <- cbind(
i=c(1,1,2,2,2,3,3,4,5,5,6),
p=c(1,2,1,3,4,2,3,4,3,5,5),
w=c(3,5,6,1,2,6,2,1,3,1,2))

# Run binary clustering function
clustering_tm(net[,1:2])

# Run weighted clustering function
clustering_tm(net)