#创立一个滞后函数L_
L_<-function(x,lag=1,na.is=T){
if(na.is)c(rep(NA,lag),x[1:(length(x)-lag)])
else x[1:(lenth(x)~lag)]
}
save.image("滞后函数L_1")
load("滞后函数L_1")
#创立一个滞后函数L_
L_<-function(x,lag=1,na.is=T){
if(na.is)c(rep(NA,lag),x[1:(length(x)-lag)])
else x[1:(lenth(x)~lag)]
}
save.image("滞后函数L_1")
load("滞后函数L_1")