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

Question

我有关于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关系。 所以我需要创建一个与同一FPID​​有关系的新cusID矩阵

例如，在上面的矩阵中，c1＆amp; c4和c2＆amp; 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

有没有人可以解决这个问题？

Answer 1

我们需要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