如何求和R中表的前导对角线

Question

我有一个使用table()R中的命令创建的表:

   y
x    0  1  2  3  4  5  6  7  8  9
  0 23  0  0  0  0  1  0  0  0  0
  1  0 23  1  0  1  0  1  2  0  2
  2  1  1 28  0  0  0  1  0  2  2
  3  0  1  0 24  0  1  0  0  0  1
  4  1  1  0  0 34  0  3  0  0  0
  5  0  0  0  0  0 33  0  0  0  0
  6  0  0  0  0  0  2 32  0  0  0
  7  0  1  0  1  0  0  0 36  0  1
  8  1  1  1  1  0  0  0  1 20  1
  9  1  3  0  1  0  1  0  1  0 24

此表显示了分类的结果,我想要对它的前导对角线求和(带有大数字的对角线 - 如23,23,28等).在R中有一个合理/简单的方法吗？

Answer 1

怎么样sum(diag(tbl)),tbl你的桌子在哪里？