Advertisement
Guest User

Untitled

a guest
Jun 18th, 2019
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. bipartite_matrix_s <- as_incidence_matrix(y, sparse = TRUE) #(WORKS)
  2. adjacency_matrix <- tcrossprod(t(bipartite_matrix_s)) #(CRASHES)
  3.  
  4. library(blockmatrix)
  5. edges <- blockmatmult(t(bipartite_matrix_s), bipartite_matrix_s)
  6. edgelist <- cbind(test_blockmult)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement