/*Forging Success: Soviet Managers and Accounting Fraud, 1943 to 1962"*/
/*by Mark Harrison*/

/*This do file uses data from Appendix 1 (trial cases in 1946/47)*/
/*to produce the regression output underlying Table 6.*/

use "tobits.dta", clear

log using "tobits.log", replace

/*PART ONE. Dependent variable is AVEJAIL.*/
/*The average jail term is bounded below at zero.*/

/*Network size; control for sector, and space (political or social value).*/

tobit avejail accused ag lndistance russia, ll vce(robust)
outreg2 using avejail, replace word

tobit avejail accused ag lndistance, ll vce(robust)
outreg2 using avejail, append word

tobit avejail accused ag russia, ll vce(robust)
outreg2 using avejail, append word

tobit avejail accused lndistance, ll vce(robust)
outreg2 using avejail, append word

tobit avejail accused russia, ll vce(robust)
outreg2 using avejail, append word

/*Control for scale of deception (value of the offense).*/
/*Add xplan xplanmiss xloss xlossmiss xgain xgainmiss.*/

tobit avejail accused ag lndistance russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, ll vce(robust)
outreg2 using avejail, append word

tobit avejail accused lndistance russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, ll vce(robust)
outreg2 using avejail, append word

/*Compute marginal effects for Table 6, column 1.*/

mfx compute, predict (e(0,10))

tobit avejail accused lndistance xplan xplanmiss xloss xlossmiss xgain xgainmiss, ll vce(robust)
outreg2 using avejail, append word

/*Compute marginal effects for Table 6, column 2.*/

mfx compute, predict (e(0,10))

tobit avejail accused russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, ll vce(robust)
outreg2 using avejail, append word

/*Compute marginal effects for Table 6, column 3.*/

mfx compute, predict (e(0,10))

/*PART TWO. Dependent variable is MAXJAIL.*/
/*The maximum jail term is bounded below at zero and above at 10.*/

/*Network size; control for sector and space (political or social value).*/

tobit maxjail accused ag lndistance russia, ll ul vce(robust)
outreg2 using maxjail, replace word

tobit maxjail accused ag lndistance, ll ul vce(robust)
outreg2 using maxjail, append word

tobit maxjail accused ag russia, ll ul vce(robust)
outreg2 using maxjail, append word

tobit maxjail accused lndistance, ll ul vce(robust)
outreg2 using maxjail, append word

tobit maxjail accused russia, ll ul vce(robust)
outreg2 using maxjail, append word

/*Control for scale of deception (value of the offense).*/
/*Add xplan xplanmiss xloss xlossmiss xgain xgainmiss.*/

tobit maxjail accused ag lndistance russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, ll ul vce(robust)
outreg2 using maxjail, append word 

tobit maxjail accused lndistance russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, ll ul vce(robust)
outreg2 using maxjail, append word 

/*Compute marginal effects for Table 6, column 4.*/

mfx compute, predict (e(0,10))

tobit maxjail accused lndistance xplan xplanmiss xloss xlossmiss xgain xgainmiss, ll ul vce(robust)
outreg2 using maxjail, append word

/*Compute marginal effects for Table 6, column 5.*/

mfx compute, predict (e(0,10))

tobit maxjail accused russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, ll ul vce(robust)
outreg2 using maxjail, append word

/*Compute marginal effects for Table 6, column 6.*/

mfx compute, predict (e(0,10))

log close