用R进行回归的时候发现网上说的几个滞后函数不知道为啥不能使用,所以自己写了个函数如下
#n为滞后次数,n1为数据集中的选定要滞后的列
df<-function(data,n,n1){
a<-rep(NA,times=n)
b<-as.integer(a)
d<-c(data[1:(nrow(data)-n),n1])
e<-c(a,d)
return(e)
}
#使用eg.
Rt_1<-df(dat1,1,2)
用R进行回归的时候发现网上说的几个滞后函数不知道为啥不能使用,所以自己写了个函数如下
#n为滞后次数,n1为数据集中的选定要滞后的列
df<-function(data,n,n1){
a<-rep(NA,times=n)
b<-as.integer(a)
d<-c(data[1:(nrow(data)-n),n1])
e<-c(a,d)
return(e)
}
#使用eg.
Rt_1<-df(dat1,1,2)