Amigos do R,

Eu tenho uma variável que foi medida três vezes no tempo com NAs em pontos diferentes de cada um dos momentos em que foi medida:

Eu gostaria de fazer a média destas 3 medidas mas caso uma medida fosse NA eu não gostaria de ignorar esta linha e torná-la NA e sim usar a média das medidas restantes. Alguém teria uma sugestão?

Exemplo:
m1<-c(1,2,3,4,NA,NA)
m2<-c(1,NA,3,4,5,NA)
m3<-c(NA,2,3,NA,NA,NA)

Se eu faço
apply(cbind(m1,m2,m3),1,mean)

Eu tenho:
[1] NA NA 3 NA NA NA

Mas eu gostaria de:
[1] 1 2 3 4 5 NA

Muito obrigado,

D