[[計量経済学のためのR環境]] x1 <- c( 1.5, 2.3, 3.8, 4.2, 5.6, 6.3) x2 <- c( 1.0, 3.9, 8.6, 15.25, 28.6, 32.68) y <- c(-3.2, 2.0, 2.2, 6.3, 5.8, 12.5) eq1 <- lm(y ~ x1 + x2) summary (eq1) eq2 <- dwtest(eq1) summary (eq2) eq3 <- arma (x1, c(1,0)) summary (eq3) x1 <- c( 1.5, 2.3, 3.8, 4.2, 5.6, 6.3) x2 <- c( 1.0, 3.9, 8.6, 15.25, 28.6, 32.68) y <- c(-3.2, 2.0, 2.2, 6.3, 5.8, 12.5) eq1 <- lm(y ~ x1 + x2) summary (eq1) eq2 <- dwtest(eq1) summary (eq2) eq3 <- arma (x1, c(1,0)) summary (eq3)