Error length zero shortest paths network r

Question

I have a problem in computing the shortest paths in a network in R. In particular, I have randomized a two-mode network with the following code:

n1 <- 441
n2 &