选择具有相同值的行以在r中创建相似的网络

我有关于cusID和FPID之间关系的二进制矩阵

    f1  f2  f3  f4  f5
c1   0   1   0   0   0   
c2   1   0   0   0   0
c3   1   0   0   0   0
c4   0   1   0   0   0

我想和库西德建立一种新的关系。 所以我需要建立一个新的CUSID矩阵，这些CUSID与同一FPID有关系

例如，在上面的矩阵中，c1和c4以及c2和c3之间存在关系。 所以我需要制作这个矩阵

    c1  c2  c3  c4
c1  0   0   0   1
c2  0   0   1   0
c3  0   1   0   0
c4  1   0   0   0

---

有人能解决这个问题吗？

我们需要一个

crossprod

m2 <- tcrossprod(m1, m1)
diag(m2) <- 0
m2
#   c1 c2 c3 c4
#c1  0  0  0  1
#c2  0  0  1  0
#c3  0  1  0  0
#c4  1  0  0  0

---

m2我需要从第一个矩阵中删除该矩阵。例如，如果c1和c2与f2具有相同的“1”，则ca和c2必须获得1。它有点复杂……：（@MinjiKim它是由第一个做成的，也就是说，
m1
你能加一个MWE吗？