Czy istnieje sposób na użyciediag() funkcjonować w macierzy bez użycia wbudowanej funkcji lub iteracji?

   M<-matrix(1:9, ncol=3) # make a matrix 

    q5b<-function(M){ #function

    }

wiem toM[1,1], M[2,2], iM[3,3] da mi takie samo wyjście jakdiag(M). Jednak nie mogę wymyślić sposobu, aby to zrobić bez pętli for.

Mój proces myślenia był taki, że powinienem mieć warunek, gdzierow index == column index w Matrixie wydrukuj tę wartość. Doceniam wszelkie sugestie.