线性回归模型的数据来源于澳大利亚的CPI数据,选取的是2008年到2011年的季度数据。...> cor(year,cpi)
> cor(quarter,cpi)
输出如下:
> cor(quarter,cpi)
[1] 0.3738028
> cor(year,cpi)
[1] 0.9096316...> cor(quarter,cpi)
[1] 0.3738028
由上图可知,CPI与年度之间的关系是正相关,并且非常紧密,相关系数接近1;而它与季度之间的相关系数大约为0.37,只是有着微弱的正相关...因此2011年的CPI可以通过以下方式计算:
> (cpi2011 <-fit$coefficients[[1]] + fit$coefficients[[2]]*2011 +
+ fit$coefficients...# 设置散点图上的观测值和预测值对应点的风格(颜色和形状)
> style <- c(rep(1,12), rep(2,4))
> plot(c(cpi, cpi2011), xaxt="n", ylab