庞浩计量经济学p88-3.3和p32-5.2

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

程序：

library(lmtest)
getwd()
setwd("C:/UseE2-1rs/花寻觅/Documents/xuexuexue")
a=read.csv("C:/Users/花寻觅/Documents/xuexuexue/上机作业2.csv")
h<-lm(Y~X+T,data=a)
summary(h)
h1<-lm(Y~T,data=a)
E1<-residuals(h1)
h2<-lm(X~T,data=a)
E2<-residuals(h2)
(h3<-lm(E1~0+E2,data=a))#E1~E2-1
summary(h3)#h=0.08645与h3=0.08645
e2<- residuals(h)^2
white<- lm(e2~X*T+I(T^2)+I(X^2)+X+T,data=a)#省略也可以
summary(white)
18*0.6698>11.0705#拒绝H0
bptest(h,~X*T+I(T^2)+I(X^2),data=a)#White检验若P<0.05,拒绝H0
#x1<- a$X
#x2<-a$T
#par(mfrow=c(1,2))
#plot(x1,e2,main="残差图")
#plot(x2,e2,main="残差图")
h4<-lm(log(Y)~log(X)+log(T),data=a)
summary(h4)#0.26832
bptest(h4)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：计量经济学 计量经济 经济学 documents Document

下次老师讲课我再更新答案