az <- zoo(1:6)
bz <- zoo(c(2,NA,1,4,5,2))
na.locf(bz)
cz <- zoo(c(NA,9,3,2,3,2))
na.locf(cz)
# Apply na.locf to independent variables but not reponse
lm(I(lag(az) ~ na.locf(bz) + diff(na.locf(cz))))
Run the code above in your browser using DataLab