#R
a<-read.csv("HSEINV.csv")
b<-lm(linvpc~t,data=a)
c<-residuals(b)#除趋势之后,残差
library(dynlm)
a1<-read.csv("HSEINV.csv")
df<-data.frame(c,a1)#将除趋势之后的y放入数据框
tdf<-ts(df)#时间序列化数据
d<-dynlm(c~gprice+L(c),data=tdf)#做GDL回归
summary(d)
HSEINV.xls
(28 KB)


雷达卡


京公网安备 11010802022788号







