Reemplace todos los valores en una fila con 0 si una de las variables tiene datos faltantes

Como dice el título, estoy tratando de reemplazar todos los valores en una fila dada por 0 si alguna variable tiene NA y generar esto usando write.table. Por ejemplo:

x  y  z
2  3  5
4  NA 1
3  2  1

a

x  y  z
2  3  5
0  0  0
3  2  1

Por el momento mi código se ve así

myvars <- c("x", "y", "z")
newdata <- mydata[myvars]
write.table(newdata, "data.txt", col.names=FALSE, row.names=FALSE)

Respuestas a la pregunta(2)

Su respuesta a la pregunta