Rサンプル2

Rのデータ入力

dset <- read.csv("d/sample3.csv", header=TRUE)
attach (dset)
eq1 <- lm(y ~ x1 + x2)
summary (eq1)
eq2 <- dwtest(eq1)
summary (eq2)
eq3 <- arma (x1, c(1,0))
summary (eq3)