* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--;


 /*
 *  13 June 2006
 
CEO in Japan project

Table 7

run by Eric. 

In converting exec7 to stata 9, I lost all the uppercase in variable names, so I put everything below in lowercase. 

Before running this, make sure that exec7.dta and temp.txt (which can be a blank file) exist in the same directory as this DO file. 

 */

 * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--;
  #delimit ;
 * This says that the semicolon denotes the end of a line of command.
All lines must end with semicolons after this;

*log using temp.log, replace;

set more 1;
 *This should stop the pauses;
 *To keep going regardless of errors, use DO mYFILE, nostop;
   * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--;


set memory 50m;

set matsize 120; 

 * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--;


use  exec7.dta;


* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--;
  

   /*  


  The prestige schools here are the 7 imperial universities, Hitotsubashi, Waseda, and Keio.  So I first lumped the other 4 year schools together, to created an Expanded Other U variable. 

. gen ExpOthU = othuniv + nihonu + doshisha + chuo

. gen ExpOthUFC = ExpOthU * FatCat

 	 
    */

* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--;
   
  /*  


 Mark  then ran this regression, 

. tobit  LnTax04Tb  LnAssets OpIn04Cap GrSP0403Jun secactg   utokyo ukyoto othi
> mpu hitotsu keio waseda jrcoll ExpOthU Indus1-Indus31  FatCat LnAssFC  Profit
> FC SPJuneFC  UTokyoFC UKyotoFC OthImpFC HitotsuFC KeioFC WasedaFC JrCollFC Ex
> pOthUFC if prez == 1, ll

	Unfortunately, it didn't converge.  So I then threw in the junior college people into the Other Univ category.
. 
. gen ExpOU2 =  ExpOthU + jrcoll
(282 missing values generated)

.  gen ExpOU2FC =  ExpOU2 * FatCat
(282 missing values generated)

	And voila, it works. 
 	 
    */

  

  tobit  lntax04tb  lnassets opin04cap grsp0403jun secactg   utokyo ukyoto othimpu hitotsu keio waseda  expou2 indus1-indus31  fatcat lnassfc  profitfc spjunefc  utokyofc ukyotofc othimpfc hitotsufc keiofc wasedafc  expou2fc if prez 
  == 1, ll;

 

 mfx compute, predict (ys(9.2103405,.)) at (median);

  outreg using temp.txt,  replace  bdec(2)   coefastr  3aster comma; 

  
 * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--;

*log close;

clear;

 * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--;