*****************************************************************************
This is the program file for David C. Wheelock's "Regulation, Market Structure,
  and the Bank Failures of the Great Depression"  in the March/April 1995
  issue of the Review.
*****************************************************************************

This program was written for SAS v.6.07.
It creates the values shown in Tables 1 and 2.
It uses the variables from the corresponding data file for this article.


LIBNAME LIB 'H1HLB00.BANK2933.DATA';
DATA ALL; SET LIB.ALL;
LNDB29=LOG(DB29);
LNNB29=LOG(NB29);
LNBP29=LOG(BP29);
LNDD2932=LOG(DD2932);

LNPOPD30=LOG(POPD30);
LNFPOP30=LOG(FPOP30);

*TABLE 1;
PROC REG DATA=ALL ;
  MODEL SB2932=DPCY BUSFAIL FO2932 SQBNKS/NOINT;
  WEIGHT SQBNKS;
  TITLE 'WEIGHTED';
  TITLE2 'TABLE 1  EQUATION 1';

PROC REG DATA=ALL ;
  MODEL SB2932=DPCY BUSFAIL FO2932 BRRAT30 DI1 DI2 SQBNKS/NOINT;
  WEIGHT SQBNKS;
  TITLE 'WEIGHTED';
  TITLE2 'TABLE 1 EQUATION 2';

PROC REG DATA=ALL ;
  MODEL SB2932=DPCY BUSFAIL FO2932 BRRAT30 DI1 DI2 LNNB29 SQBNKS/NOINT;
  WEIGHT SQBNKS;
  TITLE 'WEIGHTED';
  TITLE2 'TABLE 1  EQUATION 3';

PROC REG DATA=ALL ;
  MODEL SB2932=DPCY BUSFAIL FO2932 LNBP29 LNNB29 LNDB29 SQBNKS/NOINT;
  WEIGHT SQBNKS;
  TITLE 'WEIGHTED';
  TITLE2 'TABLE 1  EQUATION 4';

*TABLE 1 (PAGE 2);
PROC REG DATA=ALL ;
  MODEL LNDD2932=DPCY BUSFAIL FO2932;
  TITLE 'UNWEIGHTED';
  TITLE2 'TABLE 1  EQUATION 5';

PROC REG DATA=ALL ;
  MODEL LNDD2932=DPCY BUSFAIL FO2932 BRRAT30 DI1 DI2;
  TITLE 'UNWEIGHTED';
  TITLE2 'TABLE 1  EQUATION 6';

PROC REG DATA=ALL ;
  MODEL LNDD2932=DPCY BUSFAIL FO2932 BRRAT30 DI1 DI2 LNNB29;
  TITLE 'UNWEIGHTED';
  TITLE2 'TABLE 1  EQUATION 7';

PROC REG DATA=ALL ;
  MODEL LNDD2932=DPCY BUSFAIL FO2932 LNBP29 LNNB29 LNDB29;
  TITLE 'UNWEIGHTED';
  TITLE2 'TABLE 1 EQUATION 8';

*TABLE 2;
PROC REG DATA=ALL ;
  MODEL LNBP29=LNPOPD30 LNFPOP30 BRRAT30 DI1 DI2 MINCAP29;
  TITLE 'TABLE 2 -- EQUATION 1';

PROC REG DATA=ALL ;
  MODEL LNNB29=LNPOPD30 LNFPOP30 BRRAT30 DI1 DI2 MINCAP29;
  TITLE 'TABLE 2 -- EQUATION 2';

PROC REG DATA=ALL ;
  MODEL LNDB29=LNPOPD30 LNFPOP30 BRRAT30 DI1 DI2 MINCAP29;
  TITLE 'TABLE 2 -- EQUATION 3';