Cómo resumir diagonal principal de la mesa en I

Question

Tengo una tabla creada con el comando table() en I:

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 

Esta tabla muestra los resultados de una clasificación, y quiero sumar la diagonal principal de la misma (la diagonal con los números grandes, como 23, 23, 28, etc.). ¿Hay alguna manera sensata/fácil de hacer esto en R?

Answer 1

¿Qué hay de sum(diag(tbl)), donde tbl es su tabla?