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

/*This do file uses data from Appendix 2 (party control cases, 1943 to 1962).*/
/*The regression output is mentioned in the text but not used.*/

use "probits.dta", clear

log using "probits.log", replace

/*PART ONE. Dependent variable is MAXPENALTY.*/
/*The maximum penalty in each case is ranked on a scale from 0 to 5.*/

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

oprobit maxpenalty accused slope ag lndistance russia, vce(robust)
oprobit maxpenalty accused slope lndistance russia, vce(robust)
oprobit maxpenalty accused slope lndistance, vce(robust)
oprobit maxpenalty accused slope russia, vce(robust)
oprobit maxpenalty accused slope, vce(robust)
oprobit maxpenalty accused ag, vce(robust)
oprobit maxpenalty accused, vce(robust)

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

oprobit maxpenalty accused slope ag lndistance russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
oprobit maxpenalty accused slope lndistance russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
oprobit maxpenalty accused slope lndistance xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
oprobit maxpenalty accused slope russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
oprobit maxpenalty accused slope xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
oprobit maxpenalty accused ag xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
oprobit maxpenalty accused xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)

/*Control for type of deception.*/
/*Add selfins coins unins joint complex.*/

oprobit maxpenalty accused slope ag lndistance russia selfins coins unins joint complex, vce(robust)
oprobit maxpenalty accused slope lndistance russia selfins coins unins joint complex, vce(robust)
oprobit maxpenalty accused slope lndistance selfins coins unins joint complex, vce(robust)
oprobit maxpenalty accused slope russia selfins coins unins joint complex, vce(robust)
oprobit maxpenalty accused slope selfins coins unins joint complex, vce(robust)
oprobit maxpenalty accused ag selfins coins unins joint complex, vce(robust)
oprobit maxpenalty accused selfins coins unins joint complex, vce(robust)

/*PART TWO. Dependent variable is EXPEL.*/
/*"Expel" is equal to 1 when maxpenalty > 2.*/
/*This variable is called expel because the accused was expelled*/
/*from either the ministerial system or the party and/or was sent for trial.*/

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

probit expel accused slope ag lndistance russia, vce(robust)
probit expel accused slope lndistance russia, vce(robust)
probit expel accused slope lndistance, vce(robust)
probit expel accused slope russia, vce(robust)
probit expel accused slope, vce(robust)
probit expel accused ag, vce(robust)
probit expel accused, vce(robust)

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

probit expel accused slope ag lndistance russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
probit expel accused slope lndistance russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
probit expel accused slope lndistance xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
probit expel accused slope russia xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
probit expel accused slope xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
probit expel accused ag xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)
probit expel accused xplan xplanmiss xloss xlossmiss xgain xgainmiss, vce(robust)

/*Control for type of deception.*/
/*Add selfins coins unins joint complex.*/

probit expel accused slope ag lndistance russia selfins coins unins joint complex, vce(robust)
probit expel accused slope lndistance russia selfins coins unins joint complex, vce(robust)
probit expel accused slope lndistance selfins coins unins joint complex, vce(robust)
probit expel accused slope russia selfins coins unins joint complex, vce(robust)
probit expel accused slope selfins coins unins joint complex, vce(robust)
probit expel accused ag selfins coins unins joint complex, vce(robust)
probit expel accused selfins coins unins joint complex, vce(robust)

log close