伍德里奇计量经济学导论之计算机操作题的R语言实现（多元回归：估计）

引言

不知不觉，研一生活已经过去一半了，看自己现在的状态，不由得惭愧，时间管理不够好，学习没有跟上。尽量争取多写点博客，算做对自己的安慰。
本博文代码和rmd文档见下载

c3.1

##(1)
#B2的符号最有可能为正，更高的家庭收入意味着母亲孕育更好的营养以及孕期呵护。
##(2)
#一方面，家庭收入的增加会增加对食物的购买，包括香烟的支出；但另一方面，高收入通常意味着有良好的教育，受教育多者吸烟数量较少，两者存在负相关。
##(3)
#读入数据
data_bwght<-read.csv('/home/wangjianlong/files/R/blog/economitrical/ch_3/bwght.csv')
lm_bw<-lm(bwght~cigs+faminc,data=data_bwght)#包括faminc
lm_bw_0<-lm(bwght~cigs,data=data_bwght)#不包括faminc
summary(lm_bw)#r squared 0.0284 n=1388 
#bwght=116.97-0.46341cigs+0.09276faminc
summary(lm_bw_0)#r squared  0.02202 n=1388
#bwght=119.772-0.51377 cigs  
#从大小来看并没有显著改变cigs对bwght的估计，因为cigs与faminc存在较小的相关性，faminc前较小的系数也可以看出来。

C3.2

data_hprice<-read.csv('/home/wangjianlong/files/R/blog/economitrical/ch_3/hprice1.csv')
lm_hprice<-lm(price~sqrft+bdrms,data=data_hprice)#读入数据
summary(lm_hprice)
#(1)
#price=-19.325+0.12844sqrft+15.19819bdrms
#(2)
#住房保持面积不变时，增加一间卧室，价格平均会提高1.5万美元
#(3)
0.12844*140+1*15.19819#3.3万美元 远远大于2中的效果
#(4)r squared 为0.6233 价格变异的62.3%能由平方英尺和房间数解释
#(5)
0.12844*2438+4*15.19819-19.325#预估计为35.5万