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).