这是我辛辛苦苦搞来的数据,说明一下,国内生产总值来至于国家统计局(2011年除外),M2来自网络。
首先画散点图:
图什么意思,你懂的。
对M2和年份做拟合,当然是指数级的(从散点图可以看出)
> lm.sol<-lm(log(M2)~年份,data=DT)
> summary(lm.sol)
Call:
lm(formula = log(M2) ~ 年份, data = DT)
Residuals:
Min 1Q Median 3Q Max
-0.04702 -0.03278 -0.02027 0.03591 0.06410
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -3.061e+02 4.691e+00 -65.26 <2e-16 ***
年份 1.590e-01 2.342e-03 67.90 <2e-16 ***
---
Signif. code