library(zoo)
x<-c(NA,NA,1,NA,2,NA,4,NA,10,NA)
x2<-na.fill(x,"extend")

