|
*================
*-FQ 的计算过程
*================
* 连玉君, 程建, 2007.
* 投资-现金流敏感性:融资约束还是代理成本?
* 财经研究(02): 36-45
*-连玉君, 苏治, 丁志国, 2008.
* 现金-现金流敏感性能检验融资约束假说吗?
* 统计研究(10): 92-99
*-连玉君, 2009.
* 中国上市公司投资效率研究. 经济管理出版社, 北京.
gen mpk1 = b110101 / L.a130127 //主营业务收入/期初固定资产净额
gen mpk2 = b120101 / L.a130127 //主营业务利润/期初固定资产净额
*-处理为平行资料
xtbalance, range(1998 2005) // see help xtbalance, given by arlion
*--------------------
* 计算 Fundamental Q
*--------------------
* 4.1 计算 lamda = (1-delta)/(1+r)
* 本应利用指标 delta(固定资产折旧率)和r(平均利率)进行计算的,但根据这两个指标计算出来的结果
* 非常离谱,故暂且参考G95,将 lamda 设定为 0.8。
* 4.2 估计 FQ
* 4.2.1 方法1(FQ1) 参照 Bontempi(2001)定义的FQ,假设资本转化为生产力需要一个时期的滞后
*xtvarcy mpk1 mpk2, stable
xtvar mpk1 mpk2
est store pvar1
mat a = e(b)
mat A = J(2,2,0)
mat A[1,1] = a[1,1..2]
mat A[2,1] = a[1,3..4]
mat I = I(2)
set matsize 8000
gen lmpk1 = L.mpk1
gen lmpk2 = L.mpk2
mkmat lmpk1 lmpk2 , mat(X)
mat c = (1,0)
scalar lamda = 0.8
mat FQ = (c*inv(I-lamda*A)*lamda*A*X')'
svmat FQ, names(fq)
label var fq1 FQ资本转换一期滞后
* 4.2.2 方法2(FQG95) 参照 G95 定义的FQ,假设资本转化为生产力不需要滞后期。
mkmat mpk1 mpk2, mat(X2)
mat FQ2 = (c*inv(I-lamda*A)*X2')'
svmat FQ2, names(fq2)
rename fq21 fqG95
label var fqG95 FQ_G95
* 4.2.3 方法3(FQG98) 参照 G98 定义的FQ, 但采用此方法估计出的FQ系数偏高
mat FQ3 = (c*inv(I-lamda*A)*lamda*A*A*X')'
svmat FQ3, names(fq3)
rename fq31 fqG98
label var fqG98 FQ_G98
|