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")