Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- bipartite_matrix_s <- as_incidence_matrix(y, sparse = TRUE) #(WORKS)
- adjacency_matrix <- tcrossprod(t(bipartite_matrix_s)) #(CRASHES)
- library(blockmatrix)
- edges <- blockmatmult(t(bipartite_matrix_s), bipartite_matrix_s)
- edgelist <- cbind(test_blockmult)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement