给定一个邻接矩阵如下，怎么快速比对每一列与除了自身以外的其他列进行比较，记录同时为1的个数，我写的代码用for循环，一到大数据就跑不动了，我知道大牛肯定有办法，请您指教，多谢了！

我的笨拙代码：interaction 是邻接矩阵

Number <- list()
for(i in 1:ncol(interaction)){
   temp <- c()
   for(j in 1:ncol(interaction)){
     if(i != j)
       temp <- temp + length(intersect(which(interaction[,i]==1), which(interaction[,j]==1)))
  }
  Number <- c(Number, list(temp))
}