Substitua cada elemento igual a zero de uma matriz pelo elemento correspondente da linha acima

Estou usando R. Eu tenho uma matriz e quero substituir cada elemento igual a zero pelo elemento correspondente da linha acima.

Por exemplo, eu criei a seguinte matriz:

AA <- matrix(c(1,2,3,1,4,5,1,0,2), ncol=3, nrow=3) 

       [,1] [,2] [,3]
 [1,]    1    1    1    
 [2,]    2    4    0
 [3,]    3    5    2   

Quero substituir 0 pelo elemento AA [1,3]. Eu gostaria de uma função capaz de fazer isso para cada elemento de uma matriz.

questionAnswers(1)

yourAnswerToTheQuestion