实证研究方法论——Stata应用 课件 第10章 公司治理专题.pptx

第10章 公司治理专题;主要内容;公司治理;公司治理;股东研究;董事会研究;经理层研究;国有企业的公司治理;公司治理相关研究在Stata上的实现;公司治理相关研究在Stata上的实现;Stata程序实现：CFO识别;*识别CFO split d0201b,p(,) //将具体职务分开，最多的有5个头衔（样本不同会不同） *产生CFO虚拟变量 gen CFO=0 //将CFO的初始值设为0 label var CFO 首席财务官 *利用文本有哪些信誉好的足球投注网站函数regexm有哪些信誉好的足球投注网站被分开的各单个职务识别CFO，即只要各单个职务以财务总监、总会计师、首席财务官、财务负责人开头并结尾，则令CFO的值加1。 forvalue i=1/5{ replace CFO=CFO+1 if regexm(d0201b`i,^财务总监$) | regexm(d0201b`i,^总会计师$) | regexm(d0201b`i,^首席财务官$) | regexm(d0201b`i,^财务负责人$) } tab CFO //CFO==2表示有上述两个职务，如财务总监、财务负责人 keep if CFO=1 //保留拥有高管CFO的样本 bys dm nd :gen n=_N tab n //当年有更换CFO *以任职日期为依据，仅保留当年新任的CFO *观察数据可知，任职日期与具体职务的顺序一一对应,且日期间以“,”相隔。如，具体职务显示:董事长,首席执行官;对应的任职日期显示：2005-06-17,2005-06-17。 ;replace d0201b=subinstr(d0701b , ,,.) replace d0201b=subinstr(d0701b,　,,.) //去除空格 split d0701b,p(,) //CFO最多有4个职务 ? forvalue i=1/4 { gen n`i=d0201b`i+++d0701b`i } //生成“职务+任职日期”的变量 gen cfo_date= forvalue i=1/4{ replace cfo_date=n`i if regexm(d0201b`i,^财务总监$) | regexm(d0201b`i,^总会计师$) | regexm(d0201b`i,^首席财务官$) | regexm(d0201b`i,^财务负责人$) } codebook cfo_date split cfo_date,p(+) gsort dm nd -cfo_date2 //按任职日期倒序排序 by dm nd :keep if _n==1 //保留前任 drop n n1 n2 n3 n4 d0201b? d0701b? cfo_date? duplicates list dm nd //得到公司-年度的唯一识别 ;