THIS FILE CONTAINS THE PROGRAMS THAT WERE USED IN THE ARTICLE "FINANCIAL INNOVATION, DEREGULATION AND THE 'CREDIT VIEW' OF MONETARY POLICY" BY DAN THORNTON IN THE JAN/FEB 1994 ISSUE OF THE "REVIEW." THIS FILE WILL BE ORGANIZED BY TABLE. ALL OF THE PROGRAMS SHOWN ARE WRITTEN FOR SAS VERSION 6.07 . **** TABLE 1 AND 2 PROGRAM **** DATA A; INFILE 'CORRESPONDING DATA FILE(CBASST)' FIRSTOBS=4; INPUT SASDATE DATE7. TLCB CDCB STCB LTCB MTH CICTH CINTH OLTH DEPTH; YEAR = YEAR(SASDATE); QTR = QTR(SASDATE); FORMAT SASDATE DATE7.; DATA B; INFILE 'CORRESPONDING DATA FILE(PDLCB)' FIRSTOBS=4; INPUT SASDATE DATE7. PDLCB; YEAR = YEAR(SASDATE); QTR = QTR(SASDATE); FORMAT SASDATE DATE7.; DATA NBRTR; INFILE 'CORRESPONDSING DATA FILE(NBRTRNSL)' FIRSTOBS=4; INPUT SASDATE DATE7. NBRNSL TRNSL; NBRNSL = NBRNSL/1000; TRNSL = TRNSL /1000; YEAR = YEAR(SASDATE); QTR = QTR(SASDATE); PROC MEANS DATA=NBRTR MEAN NOPRINT; BY YEAR QTR; OUTPUT OUT=TRQTR MEAN=; DATA ALL; MERGE A B TRQTR; BY YEAR QTR; ASSETS = (TLCB + MTH + CICTH + CINTH + OLTH)/1000; LIABIL = (PDLCB + STCB + LTCB + DEPTH)/1000; TLCB = TLCB /1000; LBCB = (PDLCB+STCB+LTCB)/1000; THASS = (CICTH+CINTH+OLTH)/1000; THLIAB = DEPTH/1000; DATA ONE; SET ALL(WHERE=(YEAR<=1979)); IF QTR=1 THEN DUMQTR1=1;ELSE DUMQTR1=0; IF QTR=2 THEN DUMQTR2=1;ELSE DUMQTR2=0; IF QTR=3 THEN DUMQTR3=1;ELSE DUMQTR3=0; DDEP = DIF(LIABIL); DLNS = DIF(ASSETS); DDEPCB = DIF(LBCB); DLNSCB = DIF(TLCB); DDEPTH = DIF(THLIAB); DLNSTH = DIF(THASS); DDEP1 = LAG1(DDEP); DDEP2 = LAG2(DDEP); DDEP3 = LAG3(DDEP); DLNS1 = LAG1(DLNS); DLNS2 = LAG2(DLNS); DLNS3 = LAG3(DLNS); DDEPCB1 = LAG1(DDEPCB); DDEPCB2 = LAG2(DDEPCB); DDEPCB3 = LAG3(DDEPCB); DLNSCB1 = LAG1(DLNSCB); DLNSCB2 = LAG2(DLNSCB); DLNSCB3 = LAG3(DLNSCB); DDEPTH1 = LAG1(DDEPTH); DDEPTH2 = LAG2(DDEPTH); DDEPTH3 = LAG3(DDEPTH); DLNSTH1 = LAG1(DLNSTH); DLNSTH2 = LAG2(DLNSTH); DLNSTH3 = LAG3(DLNSTH); DIFTR = DIF(TRNSL); DDTR = DIF(DIFTR); DDTR1 = LAG1(DDTR); DDTR2 = LAG2(DDTR); DDTR3 = LAG3(DDTR); DDTR4 = LAG4(DDTR); DDTR5 = LAG5(DDTR); DDTR6 = LAG6(DDTR); DDTR7 = LAG7(DDTR); DIFTR8 = LAG8(DIFTR); DIFNBR = DIF(NBRNSL); DDNBR = DIF(DIFNBR); DDNBR1 = LAG1(DDNBR); DDNBR2 = LAG2(DDNBR); DDNBR3 = LAG3(DDNBR); DDNBR4 = LAG4(DDNBR); DDNBR5 = LAG5(DDNBR); DDNBR6 = LAG6(DDNBR); DDNBR7 = LAG7(DDNBR); DIFNBR8= LAG8(DIFNBR); DATA TWO; SET ALL(WHERE=(YEAR>=1980)); IF QTR=1 THEN DUMQTR1=1;ELSE DUMQTR1=0; IF QTR=2 THEN DUMQTR2=1;ELSE DUMQTR2=0; IF QTR=3 THEN DUMQTR3=1;ELSE DUMQTR3=0; DDEP = DIF(LIABIL); DLNS = DIF(ASSETS); DDEPCB = DIF(LBCB); DLNSCB = DIF(TLCB); DDEPTH = DIF(THLIAB); DLNSTH = DIF(THASS); DDEP1 = LAG1(DDEP); DDEP2 = LAG2(DDEP); DDEP3 = LAG3(DDEP); DLNS1 = LAG1(DLNS); DLNS2 = LAG2(DLNS); DLNS3 = LAG3(DLNS); DDEPCB1 = LAG1(DDEPCB); DDEPCB2 = LAG2(DDEPCB); DDEPCB3 = LAG3(DDEPCB); DLNSCB1 = LAG1(DLNSCB); DLNSCB2 = LAG2(DLNSCB); DLNSCB3 = LAG3(DLNSCB); DDEPTH1 = LAG1(DDEPTH); DDEPTH2 = LAG2(DDEPTH); DDEPTH3 = LAG3(DDEPTH); DLNSTH1 = LAG1(DLNSTH); DLNSTH2 = LAG2(DLNSTH); DLNSTH3 = LAG3(DLNSTH); DIFTR = DIF(TRNSL); DDTR = DIF(DIFTR); DDTR1 = LAG1(DDTR); DDTR2 = LAG2(DDTR); DDTR3 = LAG3(DDTR); DDTR4 = LAG4(DDTR); DDTR5 = LAG5(DDTR); DDTR6 = LAG6(DDTR); DDTR7 = LAG7(DDTR); DIFTR8 = LAG8(DIFTR); DIFNBR = DIF(NBRNSL); DDNBR = DIF(DIFNBR); DDNBR1 = LAG1(DDNBR); DDNBR2 = LAG2(DDNBR); DDNBR3 = LAG3(DDNBR); DDNBR4 = LAG4(DDNBR); DDNBR5 = LAG5(DDNBR); DDNBR6 = LAG6(DDNBR); DDNBR7 = LAG7(DDNBR); DIFNBR8= LAG8(DIFNBR); PROC REG DATA=ONE; TITLE1 '*************************'; TITLE2 '** TABLE 1 **'; TITLE3 '** PERIOD 59Q1 TO 79Q4 **'; TITLE4 '*************************'; MODEL DDEP = DDEP1-DDEP3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DDEP = DDEP1-DDEP3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DLNS = DLNS1-DLNS3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DLNS = DLNS1-DLNS3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DDEPCB = DDEPCB1-DDEPCB3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DDEPCB = DDEPCB1-DDEPCB3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DLNSCB = DLNSCB1-DLNSCB3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DLNSCB = DLNSCB1-DLNSCB3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DDEPTH = DDEPTH1-DDEPTH3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DDEPTH = DDEPTH1-DDEPTH3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DLNSTH = DLNSTH1-DLNSTH3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DLNSTH = DLNSTH1-DLNSTH3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; /* *** NOTE: SECTION DOES NON-BORROWED RESERVES ***; MODEL DDEP = DDEP1-DDEP3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DDEP = DDEP1-DDEP3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DLNS = DLNS1-DLNS3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DLNS = DLNS1-DLNS3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DDEPCB = DDEPCB1-DDEPCB3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DDEPCB = DDEPCB1-DDEPCB3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DLNSCB = DLNSCB1-DLNSCB3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DLNSCB = DLNSCB1-DLNSCB3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DDEPTH = DDEPTH1-DDEPTH3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DDEPTH = DDEPTH1-DDEPTH3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DLNSTH = DLNSTH1-DLNSTH3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DLNSTH = DLNSTH1-DLNSTH3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; */ *** END OF NON-BORROWED RESERVES SECTION ***; PROC REG DATA=TWO; TITLE1 '*************************'; TITLE2 '** TABLE 2 **'; TITLE3 '** PERIOD 80Q1 TO 93Q1 **'; TITLE4 '*************************'; MODEL DDEP = DDEP1-DDEP3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DDEP = DDEP1-DDEP3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DLNS = DLNS1-DLNS3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DLNS = DLNS1-DLNS3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DDEPCB = DDEPCB1-DDEPCB3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DDEPCB = DDEPCB1-DDEPCB3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DLNSCB = DLNSCB1-DLNSCB3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DLNSCB = DLNSCB1-DLNSCB3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DDEPTH = DDEPTH1-DDEPTH3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DDEPTH = DDEPTH1-DDEPTH3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; MODEL DLNSTH = DLNSTH1-DLNSTH3 DIFTR DDTR DDTR1-DDTR7 DUMQTR1-DUMQTR3/DW; MODEL DLNSTH = DLNSTH1-DLNSTH3 DDTR DDTR1-DDTR7 DIFTR8 DUMQTR1-DUMQTR3/DW; /* *** NOTE: THIS SECTION DOES NON-BORROWED RESERVES ***; MODEL DDEP = DDEP1-DDEP3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DDEP = DDEP1-DDEP3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DLNS = DLNS1-DLNS3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DLNS = DLNS1-DLNS3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DDEPCB = DDEPCB1-DDEPCB3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DDEPCB = DDEPCB1-DDEPCB3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DLNSCB = DLNSCB1-DLNSCB3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DLNSCB = DLNSCB1-DLNSCB3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DDEPTH = DDEPTH1-DDEPTH3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DDEPTH = DDEPTH1-DDEPTH3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; MODEL DLNSTH = DLNSTH1-DLNSTH3 DIFNBR DDNBR DDNBR1-DDNBR7 DUMQTR1-DUMQTR3/DW; MODEL DLNSTH = DLNSTH1-DLNSTH3 DDNBR DDNBR1-DDNBR7 DIFNBR8 DUMQTR1-DUMQTR3/DW; **** END OF TABLE 1 AND 2 PROGRAM **** **** TABLE 3 AND 4 PROGRAM *** %MACRO LAGG(X=,NVAR=); %DO Z = 1 %TO &NVAR; %LET VAR = %SCAN(&X,&Z); %DO I = 1 %TO 11; DD&VAR&I = LAG&I.(DD&VAR); %END; %END; %MEND; DATA TOTLAS; INFILE 'CORRESPONDING DATA FILE(CNISEC)'; INPUT SASDATE DATE7. TOTLAS USGOVSEC OTHERSEC CNI OTHERCNI USADDRES; IF MDY(11,1,72) <= SASDATE; TOTLAS = TOTLAS /1000; USGOVSEC = USGOVSEC/1000; OTHERSEC = OTHERSEC/1000; CNI = CNI /1000; OTHERCNI = OTHERCNI/1000; USADDRES = USADDRES/1000; DATA TR; INFILE 'CORRESPONDING DATA FILE(TRARR1)'; INPUT SASDATE DATE7. TRARR; IF MDY(11,1,72) <= SASDATE; DATA NBR; INFILE 'CORRESPONDING DATA FILE(NBR)'; INPUT SASDATE DATE7. NBR ; IF MDY(11,1,72) <= SASDATE; DATA COMPAP; INFILE 'CORRESPONDING DATA FILE(COMPAP1)'; INPUT SASDATE DATE7. COMPAP JUNK1 JUNK2; IF MDY(11,1,72) <= SASDATE; COMPAP = COMPAP/1000; DATA ALLOFIT; MERGE TR NBR TOTLAS COMPAP; BY SASDATE; DATA ONE; SET ALLOFIT; IF SASDATE <= MDY(2,1,84); ** PARTITIONS SAMPLE **; MIX = CNI/(COMPAP+CNI); D_MIX = DIF(MIX); D_MIX1 = LAG1(D_MIX); D_MIX2 = LAG2(D_MIX); D_MIX3 = LAG3(D_MIX); D_USGS = DIF(USGOVSEC); D_USGS1= LAG1(D_USGS); D_USGS2= LAG2(D_USGS); D_USGS3= LAG3(D_USGS); D_CNI = DIF(CNI); D_CNI1 = LAG1(D_CNI); D_CNI2 = LAG2(D_CNI); D_CNI3 = LAG3(D_CNI); D_TR = DIF(TRARR); D_NBR = DIF(NBR); DDTR = DIF(D_TR); DDNBR = DIF(D_NBR); D_TR12 = LAG12(D_TR); D_NBR12= LAG12(D_NBR); %LAGG(X=TR NBR,NVAR=2); DATA TWO; SET ALLOFIT; IF SASDATE >= MDY(3,1,84); ** PARTITIONS SAMPLE **; MIX = CNI/(COMPAP+CNI); D_MIX = DIF(MIX); D_MIX1 = LAG1(D_MIX); D_MIX2 = LAG2(D_MIX); D_MIX3 = LAG3(D_MIX); D_USGS = DIF(USGOVSEC); D_USGS1= LAG1(D_USGS); D_USGS2= LAG2(D_USGS); D_USGS3= LAG3(D_USGS); D_CNI = DIF(CNI); D_CNI1 = LAG1(D_CNI); D_CNI2 = LAG2(D_CNI); D_CNI3 = LAG3(D_CNI); D_TR = DIF(TRARR); D_NBR = DIF(NBR); DDTR = DIF(D_TR); DDNBR = DIF(D_NBR); D_TR12 = LAG12(D_TR); D_NBR12= LAG12(D_NBR); %LAGG(X=TR NBR ,NVAR=2); PROC REG DATA=ONE; TITLE1 '******************************'; TITLE2 'TABLE 3'; TITLE3 'NOVEMBER 1972 TO FEBRUARY 1984'; TITLE4 '******************************'; MODEL D_CNI= D_CNI1-D_CNI3 D_TR DDTR DDTR1-DDTR11 /DW; MODEL D_CNI= D_CNI1-D_CNI3 DDTR DDTR1-DDTR11 D_TR12/DW; ** FOLLOWING TWO REGRESSIONS PERFORMED ON NON-BORROWED RESERVES **; * MODEL D_CNI= D_CNI1-D_CNI3 D_NBR DDNBR DDNBR1-DDNBR11 /DW; * MODEL D_CNI= D_CNI1-D_CNI3 DDNBR DDNBR1-DDNBR11 D_NBR12/DW; MODEL D_MIX= D_MIX1-D_MIX3 D_TR DDTR DDTR1-DDTR11 /DW; MODEL D_MIX= D_MIX1-D_MIX3 DDTR DDTR1-DDTR11 D_TR12/DW; ** FOLLOWING TWO REGRESSIONS PERFORMED ON NON-BORROWED RESERVES **; * MODEL D_MIX= D_MIX1-D_MIX3 D_NBR DDNBR DDNBR1-DDNBR11 /DW; * MODEL D_MIX= D_MIX1-D_MIX3 DDNBR DDNBR1-DDNBR11 D_NBR12/DW; MODEL D_USGS= D_USGS1-D_USGS3 D_TR DDTR DDTR1-DDTR11 /DW; MODEL D_USGS= D_USGS1-D_USGS3 DDTR DDTR1-DDTR11 D_TR12/DW; ** FOLLOWING TWO REGRESSIONS PERFORMED ON NON-BORROWED RESERVES **; * MODEL D_USGS= D_USGS1-D_USGS3 D_NBR DDNBR DDNBR1-DDNBR11 /DW; * MODEL D_USGS= D_USGS1-D_USGS3 DDNBR DDNBR1-DDNBR11 D_NBR12/DW; PROC REG DATA=TWO; TITLE1 '**********************'; TITLE2 'TABLE 4'; TITLE3 'MARCH 1984 TO MAY 1993'; TITLE4 '**********************'; MODEL D_CNI= D_CNI1-D_CNI3 D_TR DDTR DDTR1-DDTR11 /DW; MODEL D_CNI= D_CNI1-D_CNI3 DDTR DDTR1-DDTR11 D_TR12/DW; ** FOLLOWING TWO REGRESSIONS PERFORMED ON NON-BORROWED RESERVES **; * MODEL D_CNI= D_CNI1-D_CNI3 D_NBR DDNBR DDNBR1-DDNBR11 /DW; * MODEL D_CNI= D_CNI1-D_CNI3 DDNBR DDNBR1-DDNBR11 D_NBR12/DW; MODEL D_MIX= D_MIX1-D_MIX3 D_TR DDTR DDTR1-DDTR11 /DW; MODEL D_MIX= D_MIX1-D_MIX3 DDTR DDTR1-DDTR11 D_TR12/DW; ** FOLLOWING TWO REGRESSIONS PERFORMED ON NON-BORROWED RESERVES **; * MODEL D_MIX= D_MIX1-D_MIX3 D_NBR DDNBR DDNBR1-DDNBR11 /DW; * MODEL D_MIX= D_MIX1-D_MIX3 DDNBR DDNBR1-DDNBR11 D_NBR12/DW; MODEL D_USGS= D_USGS1-D_USGS3 D_TR DDTR DDTR1-DDTR11 /DW; MODEL D_USGS= D_USGS1-D_USGS3 DDTR DDTR1-DDTR11 D_TR12/DW; ** FOLLOWING TWO REGRESSIONS PERFORMED ON NON-BORROWED RESERVES **; * MODEL D_USGS= D_USGS1-D_USGS3 D_NBR DDNBR DDNBR1-DDNBR11 /DW; * MODEL D_USGS= D_USGS1-D_USGS3 DDNBR DDNBR1-DDNBR11 D_NBR12/DW; **** END OF TABLE 3 AND 4 PROGRAM *** **** TABLE 5 PROGRAM *** %MACRO LAGG(X=,NVAR=); %DO Z = 1 %TO &NVAR; %LET VAR = %SCAN(&X,&Z); %DO I = 1 %TO 7 ; DD&VAR&I = LAG&I.(DD&VAR); %END; %END; %MEND; ***************************************************************** ** THE PARTITIONING OF EACH INPUT DATA SET IS VERY IMPORTANT ** ** BECAUSE THERE IS NO DATE VARIABLE INCLUDED ON THE LNUC ** ** DATA SET. THE OTHER DATA SETS MUST MATCH ITS DATE TO MERGE ** *****************************************************************; DATA TOTLAS; INFILE 'USED DATA FILE(CNISEC) USED FOR TABLE 3 AND 4'; INPUT SASDATE DATE7. TOTLAS USGOVSEC OTHERSEC CNI OTHERCNI USADDRES; IF MDY(1,1,75) <= SASDATE <= MDY(6,1,87); TOTLAS = TOTLAS /1000; USGOVSEC = USGOVSEC/1000; OTHERSEC = OTHERSEC/1000; CNI = CNI /1000; OTHERCNI = OTHERCNI/1000; USADDRES = USADDRES/1000; DATA TRARR; INFILE 'USE DATA FILE(TRARR1) USED FOR TABLE 3 AND 4'; INPUT SASDATE DATE7. TRARR; IF MDY(1,1,75) <= SASDATE <= MDY(6,1,87); DATA NBR ; INFILE 'USE DATA FILE(NBR) USED FOR TABLE 3 AND 4'; INPUT SASDATE DATE7. NBR; IF MDY(1,1,75) <= SASDATE <= MDY(6,1,87); DATA LNUCLUC; INFILE 'CORRESPONDING DATA FILE(LNUCLUC)' ; INPUT LNUC LUC; DATA ONE; MERGE TRARR NBR TOTLAS LNUCLUC; IF SASDATE <= MDY(2,1,84); D_LUC = DIF(LUC); D_LUC1 = LAG(D_LUC); D_LUC2 = LAG2(D_LUC); D_LUC3 = LAG3(D_LUC); D_TR = DIF(TRARR); D_NBR = DIF(NBR); DDTR = DIF(D_TR); DDNBR = DIF(D_NBR); D_TR7 = LAG7(D_TR); D_NBR7 = LAG7(D_NBR); %LAGG(X=TR NBR,NVAR=2); PROC REG DATA=ONE ; TITLE1 '********************************************'; TITLE2 '**** TABLE 5 ****'; TITLE3 '**** TIME PERIOD: JAN 1975 TO FEB 1984 ****'; TITLE4 '********************************************'; MODEL D_LUC = D_LUC1-D_LUC3 D_TR DDTR DDTR1-DDTR6 /DW; MODEL D_LUC = D_LUC1-D_LUC3 DDTR DDTR1-DDTR6 D_TR7 /DW; *** THE FOLLOWING TWO ARE REGRESSIONS ON NON-BORROWED RESERVES ***; * MODEL D_LUC = D_LUC1-D_LUC3 D_NBR DDNBR DDNBR1-DDNBR6 /DW; * MODEL D_LUC = D_LUC1-D_LUC3 DDNBR DDNBR1-DDNBR6 D_NBR7 /DW; DATA TWO; MERGE TRARR NBR TOTLAS LNUCLUC; IF SASDATE <= MDY(6,1,87); D_LUC = DIF(LUC); D_LUC1 = LAG(D_LUC); D_LUC2 = LAG2(D_LUC); D_LUC3 = LAG3(D_LUC); D_TR = DIF(TRARR); D_NBR = DIF(NBR); DDTR = DIF(D_TR); DDNBR = DIF(D_NBR); D_TR7 = LAG7(D_TR); D_NBR7 = LAG7(D_NBR); %LAGG(X=TR NBR,NVAR=2); PROC REG DATA=TWO ; TITLE1 '********************************************'; TITLE2 '**** TABLE 5 ****'; TITLE3 '**** TIME PERIOD: JAN 1975 TO JUN 1987 ****'; TITLE4 '********************************************'; MODEL D_LUC = D_LUC1-D_LUC3 D_TR DDTR DDTR1-DDTR6 /DW; MODEL D_LUC = D_LUC1-D_LUC3 DDTR DDTR1-DDTR6 D_TR7 /DW; *** THE FOLLOWING TWO ARE REGRESSIONS ON NON-BORROWED RESERVES ***; * MODEL D_LUC = D_LUC1-D_LUC3 D_NBR DDNBR DDNBR1-DDNBR6 /DW; * MODEL D_LUC = D_LUC1-D_LUC3 DDNBR DDNBR1-DDNBR6 D_NBR7 /DW; **** END OF TABLE 5 PROGRAM ***