Rサンプル8

・時系列分析(系列相関、ダービンワトソン比、分散不均一)

pset <- read.csv("d/sample6.csv", header=TRUE)
attach (pset)
eq2 <- lm(Price ~ GDP)
summary(eq2)
plot(Year,residuals.lm(eq2))
par(new=T)
abline(h=0)