哈喽！诸君安！

应广大读者的要求，今天就来介绍一下如何在Stata中应用修正的Jones模型计算可操控应计项目。

我们的上市公司财务数据来源于CSMAR数据库，行业分类数据来源于2015申银万国行业分类。修正的Jones模型如下图所示：

      具体计算方法为：借助公式1b拟合出各行业年份的回归系数，然后带入公式1a中并拟合出NDA，即正常的应计项目规模，最后套用公式1c，计算出可操控应计项目的值，上述的运算都是在同一行业同一年份中进行(公式中的详细财务指标见变量标签)。

clear

set more off

global path = "D:\DA"  //定义文件存放路径

use ${path}\资产负债表,clear 

merge 1:1 stkcd year using ${path}\利润表

drop _m

merge 1:1 stkcd year using ${path}\现金流量表

drop _m  //合并CSMAR数据库三表数据

xtset stkcd year //为后续的滞后运算设置时间变量

1.数据重命名：对模型中需要用的基本财务数据进行重新命名

rename b001100000 S

label var S "营业收入"  

rename a001111000 R

label var R "应收账款"

rename a001212000 PPE

label var PPE "固定资产"

rename a001000000 A

label var A "账面资产"

rename b002000000 NI

label var NI  "净收入"

rename c001000000 CFO

label var CFO "经营现金流量"

2.生成模型中计算

gen Delta_S=d.S

label var Delta_S "营业收入增量"

gen Lag_A=l.A

label var Lag_A "去年的账面资产"

gen Delta_R=d.R

label var Delta_R "应收账款增量"

gen TA=NI-CFO

label var TA "总应计项目"

gen A1=1/l.A  /*A1为滞后1期的总资产的倒数*/

replace TA=TA/l.A  

replace Delta_S=Delta_S/l.A

replace Delta_R=Delta_R/l.A

gen RVC=Delta_S-Delta_R

label var RVC "营业收入增量减去应收账款增量然后除以滞后一期的账面资产"

replace PPE=PPE/l.A

3. 匹配行业数据

sort stkcd

merge m:1 stkcd using  ${path}/行业分类\申银万国行业分类2015.dta //行业分类数据存放路径

drop _m

encode syind,gen(ind)  //把字符型数据转换为数值型数据

keep stkcd year ind Delta_S PPE A Lag_A Delta_R TA A1 RVC //保留所需变量

drop if ind==.|TA==.|A1==.|Delta_S==.|PPE==.|RVC==.  //剔除缺失值

save ${path}\fs_盈余管理数据,replace //数据保存

merge 1:m year ind using ${path}\fs_盈余管理数据.dta //匹配原始数据

gen NDA=_b_cons+_b_A1*A1+_b_Delta_S*RVC+_b_PPE*PPE //根据公式1a拟合出合理的应计项目规模

gen DA=TA-NDA  //根据公式1c计算可操控应计项目

winsor DA,gen(DA_Winsor) p(0.01) //进行缩尾操作

gen abs_DA_Winsor=abs(DA_Winsor) //取绝对值

gen abs_DA=abs(DA) //取绝对值

save ${path}\盈余管理,replace  

满满的都是干货啊，还在等什么，打赏的小按钮在向你招手呢！