・時系列分析(系列相関、ダービンワトソン比、分散不均一)
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)