# NOT RUN {
## Load sample data
sampledata<-rbind(
c(1,2,4),
c(1,3,2),
c(2,1,4),
c(2,3,4),
c(2,4,1),
c(2,5,2),
c(3,1,2),
c(3,2,4),
c(4,2,1),
c(5,2,2),
c(5,6,1),
c(6,5,1));
## Run the function
rg_reshuffling_w(sampledata, option="weights", directed=FALSE)
# }
Run the code above in your browser using DataLab