Soma de antidiagonal de uma matriz
Estou tentando somar os elementos ao longo da antidiagonal (diagonal secundária, diagonal menor) de uma matriz.
Então, se eu tiver uma 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
Estou procurando a somam[3, 1] + m[2, 2] + m[1, 3]
, ou seja,1 + 2 + 1
Não consigo descobrir como configurar uma iteração. Até onde eu sei, não há função para isso (comodiag()
para a outra diagonal).