R動作テストプログラム

計量経済学のための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)