ECONOMETRICS CHAPTER1

♣回归一词的来历

回归到中等，子辈较父辈的身高回归到中等。

♣回归的现代含义

研究一个因变量对解释变量的依赖关系。通过解释变量来估计和预测因变量。

♣回归分析的结果不一定意味着因果关系，必须诉诸理论思考。

♣回归与相关

相关分析对称地对待所有变量。回归分析的因变量是随机的，解释变量是固定的。

♣题1

#读入csv文件
cpidata <- read.table("D:/ECONOMETRICS/5e_data_sets/Table 1_3.csv",header=TRUE,sep=",")
#cpidata2 <- read.csv("D:/ECONOMETRICS/5e_data_sets/Table 1_3.csv",header=TRUE,sep=",")
#identical(cpidata,cpidata2)
#查看行名和列名
#row.names(cpidata)
#names(cpidata)
#设置结果向量
temp <- numeric(length=25)
inflationdata <- data.frame(YEAR=cpidata[2:26,"YEAR"],USA=temp,Canada=temp,Japan=temp,France=temp,Germany=temp,Italy=temp,UK=temp)
#计算通货膨胀
for(i in 2:26)
{for(j in 2:8){inflationdata[i-1,j]=(cpidata[i,j]-cpidata[i-1,j])/cpidata[i-1,j]*100}}
#绘制图形
attch(inflationdata)
plot(YEAR,USA,type="l",ylim=c(min(inflationdata[2:8]),max(inflationdata[2:8])))
lines(YEAR,Canada,type="l",col="blue")
lines(YEAR,Japan,type="l",col="green")
lines(YEAR,France,type="l",col="red")
lines(YEAR,Germany,type="l",col="yellow")
lines(YEAR,Italy,type="l",col="orange")
lines(YEAR,UK,type="l",col="purple")