- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 12435 个
- 通用积分
- 1.0091
- 学术水平
- 11 点
- 热心指数
- 12 点
- 信用等级
- 7 点
- 经验
- 1735 点
- 帖子
- 123
- 精华
- 0
- 在线时间
- 1092 小时
- 注册时间
- 2011-6-12
- 最后登录
- 2023-8-31
讲师
还不是VIP/贵宾
- 威望
- 0 级
- 论坛币
- 12435 个
- 通用积分
- 1.0091
- 学术水平
- 11 点
- 热心指数
- 12 点
- 信用等级
- 7 点
- 经验
- 1735 点
- 帖子
- 123
- 精华
- 0
- 在线时间
- 1092 小时
- 注册时间
- 2011-6-12
- 最后登录
- 2023-8-31
| 无聊 2022-8-25 10:09:54 |
---|
签到天数: 478 天 连续签到: 1 天 [LV.9]以坛为家II
|
经管之家送您一份
应届毕业生专属福利!
求职就业群
感谢您参与论坛问题回答
经管之家送您两个论坛币!
+2 论坛币
R软件中,面板数据估计的部分代码提供如下。
- ###面板数据回归模型(模型估计,参数检验)####变截距模型
- library(plm)
- library(foreign)
- exam<-read.table("D:/R2.10/exam.txt",header=TRUE)
- list(exam)
- head(exam)
- E<-pdata.frame(exam,index=c("id","year"),drop.index=TRUE,row.name=TRUE)
- head(E)
- pest<-plm(cp~ip,data=E,model=c("pooling")) ##混合回归模型估计
- summary(pest)
- ifest<-plm(cp~ip,data=E,effect=c("individual"),model=c("within")) ##个体固定效应模型估计
- summary(ifest)
- fixef(ifest) ##固定效应模型个体效应截距
- summary(fixef(ifest))
- tfest<-plm(cp~ip,data=E,effect=c("time"),model=c("within")) ##时点固定效应面板数据估计
- summary(tfest)
- fixef(tfest) ##固定效应模型时间效应截距
- itfest<-plm(cp~ip,data=E,effect=c("twoways"),model=c("within")) ##个体时点效应面板数据估计
- summary(itfest)
- fixef(itfest,effect=c("time"))
- fixef(itfest,effect=c("individual"))
- pmodel.response(ifest) ##计算相应变量的值
- irest<-plm(cp~ip,data=exam,effect=c("individual"),model=c("random"),index=c("id","year")) ##个体随即效应面板模型估计
- summary(irest)
- trest<-plm(cp~ip,data=exam,effect=c("time"),model=c("random"),index=c("id","year")) ##时点随机效应面板模型估计
- summary(trest)
- itrest<-plm(cp~ip,data=exam,effect=c("twoways"),model=c("random"),index=c("id","year")) ##个体时点效应面板模型估计
- summary(itrest)
- phtest(itfest,itrest) ##hausman检验 零假设为个体效应和解释变量不相关,固定效应和随机效应都是一致的,但是随机效应更有效
- pooltest(pest,itfest) ##chow邹至庄检验 零假设为固定效应模型和混合回归模型无差别,也可用于变系数模型和混合回归模型的检验
- pooltest(pest,ifest) ##chow邹至庄检验 零假设为固定效应模型和混合回归模型无差别,也可用于变系数模型和混合回归模型的检验
- pooltest(pest,tfest) ##chow邹至庄检验 零假设为固定效应模型和混合回归模型无差别,也可用于变系数模型和混合回归模型的检验
- plmtest(pest)
- plmtest(pest,effect="time")
- plmtest(pest,effect="individual")
- plmtest(pest,effect="twoways",type="bp") ##lagrange multiplier test 如果type="bp"则为bp检验,后面还可以加honda,ghm,kw都是用于检验混合回归模型对随机影响面板数据模型,零假设为可以使用混合回归模型估计
- plmtest(pest,effect=c("individual"),model=c("random"))
- pFtest(pest,itfest) ##检验混合回归模型对个体效应模型,零假设为混合回归模型
- pwtest(pest) ##伍德里奇半参数检验,主要用于检验不可观测因素的影响,零假设为不存在不可观测因素(依赖较大的N渐进性)或者组内不存在相关性,它在存在误差异方差和偏离正态性的时候有效
- pbltest(cp~ip,data=exam)
- pbgtest(irest)
- ###面板数据回归模型(模型估计,参数检验)####变系数模型
复制代码
原帖来源:[程序分享]R面板数据估计
扫码加我 拉你入群
请注明:姓名-公司-职位
以便审核进群资格,未注明则拒绝
|
|
-
总评分: 经验 + 60
论坛币 + 55
学术水平 + 10
热心指数 + 10
信用等级 + 7
查看全部评分
|