- set more off
- clear
- insheet using dd.csv
- gen dep=v10+v11+v12
- drop v10 v11 v12
- rename v4 cash
- rename v5 ca
- rename v6 asset
- rename v7 loan
- rename v8 cl
- rename v9 cfo
- encode csrc,gen(csrc1)
- drop csrc
- winsor2 cash ca asset loan cl cfo dep,replace
- xtset v2 v1
- gen dca=ca-l.ca
- gen dcash=cash-l.cash
- gen dcl=cl-l.cl
- gen dloan=loan-l.loan
- gen ta=dca-dcash-dcl+dloan-dep
- gen rta=ta/l.asset
- gen rcfo=cfo/l.asset
- drop if csrc1==.
- bysort csrc1 v1: egen num=count(v2)
- keep if num >=15
- cap drop g
- egen g=group(v1 csrc1)
- gen da=.
- forvalue i=1/245{
- capture noisily reg rta l.rcfo rcfo f.rcfo if g==`i'
- quietly if !_rc{
- qui predict e if g==`i', res
- qui replace da = e if g==`i'
- drop e
- }
- }
DD.xls
(2.98 MB)


雷达卡





京公网安备 11010802022788号







