伍德里奇计量经济学导论之计算机操作题的R语言实现（简单线性回归）

引言

本学期正在学习伍德里奇第四版的计量经济学导论，为了增强对计量经济学的理解和熟悉R语言的操作，决定对计量经济学导论的计算机操作部分进行R语言实现，如果各位看官发现有任何错误请在下面评论，不胜感激。

题目就不在博客中重复，内容主要是R语言代码和习题解答。这一系列博客主要参照了计量经济学导论习题解答、王斌会老师出的计量经济学模型及R语言应用以及Applied Econometrics with R。

第四版计量经济学导论excel文件见百度网盘
经过整理后的本博客数据和本篇博客Rmd文本见这里

C2.1

(1)

#导入数据 请注意修改文件路径名
data_2.1<-read.csv("E:\\博客\\计量经济学\\ch_2\\401k.csv",header=TRUE)
#平均参与率
ave_prate<-mean(data_2.1$prate)
#平均匹配率
ave_mrate<-mean(data_2.1$mrate)

(2)

#估计回归方程
lm_prate<-lm(prate~mrate,data=data_2.1)
summary(lm_prate)
#估计结果
#prate=83.0755+5.8611mrate
#n=1534
#R-squared=0.0747

(3)

#解释系数
#当匹配率为0的时候，回报率为83.0755%
#mrate的系数表明在其他条件不变的条件下，当匹配率每增加一美元，回报率平均增加5.86%。

(4)

#输入mrate数据  输出fit的值就是点估计
point<-data.frame(mrate=3.5)
predict(lm(prate~mrate,data=data_2.1),point,interval = "confidence")
#点估计为103.5892%，显然这个答案是不可能的