* 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资本转换一期滞后