umme der Antidiagonalen einer Matr

Ich versuche, die Elemente entlang der Antidiagonale (Sekundärdiagonale, Minor-Diagonale) einer Matrix zu summieren.

Also, wenn ich eine Matrix m habe:

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

Ich suche die Summem[3, 1] + m[2, 2] + m[1, 3], d. h.1 + 2 + 1

Ich kann nicht herausfinden, wie eine Iteration eingerichtet wird. Soweit ich weiß gibt es dafür keine Funktion (wiediag() für die andere Diagonale).