Сумма антидиагональности матрицы
Я пытаюсь сложить элементы вдоль антидиагональной (вторичная диагональ, малая диагональ) матрицы.
Итак, если у меня есть матрица 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()
для другой диагонали).