Remplissage des valeurs NA avec répétition de la valeur non NA la plus à gauche dans le zoo

Question

Comment remplir les valeurs NA avec la répétition de la valeur non NA la plus à gauche dans zoo?

Dans le guide du zoo pdf nous avons la fonction na.fill qui effectue cette tâche. Ma question est de savoir comment dire la fonction pour prendre la valeur non-NA la plus à gauche?

Ci-dessous un petit exemple

> z <- zoo(c(NA, 2, NA, 1, 4, 5, 2, NA)) 
> z 
1 2 3 4 5 6 7 8 
NA 2 NA 1 4 5 2 NA 
> na.fill(z, "extend") 
    1 2 3 4 5 6 7 8 
2.0 2.0 1.5 1.0 4.0 5.0 2.0 2.0 
> na.fill(z, c("extend", NA)) 
1 2 3 4 5 6 7 8 
2 2 NA 1 4 5 2 2 

Le résultat que je veux est la suivante:

1 2 3 4 5 6 7 8 
NA 2 2 1 4 5 2 2 

Answer 1

library(zoo) 
z <- zoo(c(NA, 2, NA, 1, 4, 5, 2, NA)) 
na.locf(z, na.rm = FALSE) 
# 1 2 3 4 5 6 7 8 
#NA 2 2 1 4 5 2 2