r - 求和矩阵的元素

Question

我有一个矩阵，我想对其中的元素求和而不包括对角线。假设，

 matrixDat <- matrix(1:25, ncol=5)
 colnames(matrixDat) <- c("A", "B", "C", "D", "E")
  rownames(matrixDat) <- c("A", "B", "C", "D", "E")

我期望的结果是:

c(2+6, 3+11, 4+16, 5+21, 8+12, 9+17, 10+22, 14+18, 15+23, 20+24)

即。总结第一行第一列没有1。完成后，删除第一行第一列，从第二行第二列开始，然后删除它，第三行第三列，直到第五行, 第五列。

Answer 1

尝试:

     indx <- lower.tri(matrixDat)
     matrixDat[indx]+t(matrixDat)[indx]
     #[1]  8 14 20 26 20 26 32 32 38 44

或者，你可以做一个循环

    vec1 <- vector()
    for(i in 1:ncol(m1)){
    vec1 <- c(vec1,matrixDat[,i][-(1:i)]+matrixDat[i,][-(1:i)])
     }

     unname(vec1)
     #[1]  8 14 20 26 20 26 32 32 38 44