weighted_richclub_local_w {tnet}

The weighted rich-club effect (local measure)

Description

This function calculates the local weighted rich-club coefficient proposed in Opsahl, T., 2008. Local weighted rich-club measure.
http://toreopsahl.com/2008/12/26/local-weighted-rich-club-measure/

Usage

weighted_richclub_local_w(net, prominence)

Arguments

net

A weighted edgelist

prominence

A vector with 1 denoting prominent, and 0 non-prominent. This list must be as long as the highest node id number.

Value

Returns a table with the fraction of phi(observed) over phi(null) for each k or s in the dataset.

Note

version 1.0.0

Author(s)

Tore Opsahl; http://toreopsahl.com

References

Opsahl et al., 2008. Prominence and control: The weighted rich-club effect. PRL 101
http://toreopsahl.com/2008/12/12/article-prominence-and-control-the-weighted-rich-club-effect/

Examples

## Load sample data
sample <- cbind(
i=c(1,1,2,2,2,2,3,3,4,5,5,6),
j=c(2,3,1,3,4,5,1,2,2,2,6,5),
w=c(4,2,4,4,1,2,2,4,1,2,1,1))
prominence <- c(1,1,1,0,0,0)

## Run the function
weighted_richclub_local_w(sample, prominence)