# NOT RUN {
# 1) generate a random bipartite graph
set.seed(123)
g <- sample_bipartite(100, 50, p=0.05)
V(g)$name <- V(g)
# }
# NOT RUN {
# 2) obtain its projected graph
ig <- xBiproject(g)
# 3) estimate pairwise affiinity between nodes
mat <- xRWkernel(ig)
# }
Run the code above in your browser using DataLab