Suma de antidiagonal de una matriz
Estoy tratando de sumar los elementos a lo largo del antidiagonal (diagonal secundaria, diagonal menor) de una matriz.
Entonces, si tengo una matriz m:
m <- matrix(c(2, 3, 1, 4, 2, 5, 1, 3, 7), 3)
m
[,1] [,2] [,3]
[1,] 2 4 1
[2,] 3 2 3
[3,] 1 5 7
Estoy buscando la sumam[3, 1] + m[2, 2] + m[1, 3]
es decir1 + 2 + 1
No puedo entender cómo configurar una iteración. Por lo que sé, no hay ninguna función para esto (comodiag()
para la otra diagonal).