R Замена NA последним значением

В пакете zoo есть отличная функция na.locf, которая подставляет вместо NA ближайшее предшествующее определенное значение. Продемонстрирую на примере:

# будет возвращен вектор 1 1 1 2 2 2 2 3 3
na.locf(c(1,NA,NA,2,NA,NA,NA,3,NA))

Причем, если в функцию передать значение fromLast = TRUE, то вместо NA будет устанавливаться ближайшее следующее определенное значение:

# вернёт вектор 1 2 2 2 3 3 3 3
na.locf(c(1,NA,NA,2,NA,NA,NA,3,NA), fromLast = TRUE)