Я пытаюсь сложить элементы вдоль антидиагональной (вторичная диагональ, малая диагональ) матрицы.

Итак, если у меня есть матрица 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

Я ищу суммуm[3, 1] + m[2, 2] + m[1, 3]т.е.1 + 2 + 1

Я не могу понять, как настроить итерацию. Насколько я знаю, нет функции для этого (какdiag() для другой диагонали).