自相关性的诊断
DW检验
DW检验的代码实现如下:
data2.2<-read.csv("C:/Users/Administrator/Desktop/data2.2.csv",head=TRUE)
lm2.2<-lm(y~x,data=data2.2)
library(lmtest)
dwtest(lm2.2,alternative="two.sided")
输出结果如下:
根据上面的输出结果得到
D
W
=
0.58844
,
P
=
1.413
e
−
5
DW=0.58844,P=1.413e-5
DW=0.58844,P=1.413e−5,因此在显著性水平为0.05时拒绝原假设,认为存在自相关性。