set.seed(123)
x<- runif(100)
y<- 2*x + rnorm(100,0,0.1)
plot(x,y)
plot(y~x)
summary(lm(y~x))
anova(lm(y~x))
abline(lm(y~x))

lm.devo<- lm(y~x)

library(lmtest)
dwtest(y~x)
help("dwtest")