# NOT RUN {
## Load sample data
sample <- cbind(
i=c(1,1,2,2,2,2,3,3,4,5),
j=c(2,3,1,3,4,5,1,2,2,2),
w=c(4,2,4,4,1,2,2,4,1,2))
## Run the function
weighted_richclub_w(sample, rich="k", reshuffle="weights", NR = 100)
# }
Run the code above in your browser using DataLab