# NOT RUN {
# 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)
# }
Run the code above in your browser using DataLab