前两天太忙,今天才抽空弄好,请查看附件中的程序和测试程序。
bdiff.ado 和 bdiff.hlp 放置于
stata11\ado\base\b 文件夹中即可。
*-注意:新版的 bdiff.ado 命令语法有所改动,请输入 help bdiff 查看新的帮助文件。
*==========================
*-测试程序 1:基于 20# 楼童鞋提供的数据
*==========================
cd D:\stata11\ado\personal\temp
use panel_bdiff, clear
global xx "rd lnasset" // 解释变量
xtset id year
xtreg roe $xx if indus==1,fe
mat b1 = e(b)
est store m1
xtreg roe $xx if indus==0,fe
mat b2 = e(b)
est store m2
*-结果对比
esttab m1 m2, mtitle(m1 m2) nogap
*-记录真实差异
mat D = (b1 \ b2 \ b1-b2)
local d1_0 = D[3,1] // 第一个解释变量的系数差异
local d2_0 = D[3,2] // . 二....
mat list D // 真实差异
*-Bootstrap 系数差异
bdiff roe $xx, truediff(`d1_0' `d2_0') n1(9) bs(100) seed(123)
*==========================
*-测试程序 2:基于模拟数据
*==========================
*-自行生成一份模拟数据
*-Group 1
* y[it] = a
+ b1*x[it] + e[it] where, b1=0.3
*-Group 2
* y[it] = a + b2*x[it] + e[it] where, b2=0.8
*-Goal:Test Ho: b1=b2
cap xtarsim
if _rc{
ssc install xtarsim, replace // 下载并安装 xtarsim 命令
}
*------------------以下命令请选中后整体执行-----------------------
clear
xtarsim y x eta, n(200) t(10) g(0) b(0.3) r(.2) sn(9) seed(1234)
gen gg = 1 // 第一组数据
save data01, replace
xtarsim y x eta, n(300) t(10) g(0) b(0.8) r(.2) sn(9) seed(1235)
replace ivar = 600000+ivar
gen gg = 2 // 第二组数据
append using data01
xtreg y x if gg==1, fe
local b1 = _b[x]
est store g1
xtreg y x if gg==2, fe
local b2 = _b[x]
est store g2
*-记录真实差异
local d0 = `b1' - `b2'
*-结果对比
esttab g1 g2, mtitle(g1 g2) nogap
*-Bootstrap 系数差异
bdiff y x, truediff(`d0') n1(200) bs(100) seed(123)
*----------------------------Over------------------------------
*-Note: 大家可以在数据生成过程中修改 b1 和 b2 的数值,比如:
* b1=0.7; b2=0.8,由此可以测试出 bdiff 命令的检定力(Power)
*-使用中有任何问题,请与我联系,以便改进:arlionn@163.com
*===========测试结果===============
. *-Bootstrap 系数差异
. bdiff y x, truediff(`d0') n1(200) bs(100) seed(123)
Begin Time :13 Oct 2011 22:10:39
Bootstrap 组间系数差异检验
----------------------------------------------------------
变量 真实差异 抽样差异 实证 P 值
----------------------------------------------------------
x -0.1069 -0.0012 0.0000
----------------------------------------------------------
自抽样次数: 100