选择具有相同的价值作出类似网络中的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

例如关系cusIDs的一个新的矩阵，在上面的矩阵，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 

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

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