*program 4.

* syntax to extract circuit level variables.
* from US Courts of Appeal data.
* input file.
*     Appelate Judge data.
* output file.
*     Circuit/year dataset. 
*  Leonard Ray, Louisiana State University, August, 2000.

* W-nominate scores used for presidential ideology.
* downloaded from Poole & Rosenthal website.
* file congress.zip.
* first dimension used.
* FDR and TRUMAN assigned dem mean .442.
* EISENHOWER   0.267.
* KENNEDY     -0.524.
* JOHNSON     -0.412.
* NIXON        0.280.
* FORD         0.251.
* CARTER      -0.470.
* REAGAN       0.479.
* BUSH         0.456.
* CLINTON     -0.363.


** READING IN AUBURN JUDICIAL DATA.
GET FILE='C:\My Documents\research\COA_AG\auburn.sav'.


** STEP ONE **.

COMPUTE YEARL =RTRIM(YEARL).
COMPUTE YEARL =LTRIM(YEARL).

RECODE AYEAR (CONVERT) INTO AYEARNUM.
RECODE YEARL (CONVERT)('Active Service' = 1996) INTO LYEARNUM.

COMPUTE PRES =RTRIM(PRES).
COMPUTE PRES =LTRIM(PRES).

select if (lyearnum ge 1970).
execute.

if (pres eq "F. Roosevelt") w_nomin=-0.442.
if (pres eq "Truman")       w_nomin=-0.442.
if (pres eq "Eisenhower")   w_nomin= 0.267.
if (pres eq "Kennedy")      w_nomin=-0.524.
if (pres eq "L.B. Johnson") w_nomin=-0.412.
if (pres eq "Nixon")        w_nomin= 0.280.
if (pres eq "Ford")         w_nomin= 0.251.
if (pres eq "Carter")       w_nomin=-0.470.
if (pres eq "Reagan")       w_nomin= 0.479.
if (pres eq "Bush")         w_nomin= 0.456.
if (pres eq "Clinton")      w_nomin=-0.363.


** Creating annual party variables as ideology proxies.
numeric pty1970.
numeric pty1971.
numeric pty1972.
numeric pty1973.
numeric pty1974.
numeric pty1975.
numeric pty1976.
numeric pty1977.
numeric pty1978.
numeric pty1979.
numeric pty1980.
numeric pty1981.
numeric pty1982.
numeric pty1983.
numeric pty1984.
numeric pty1985.
numeric pty1986.
numeric pty1987.
numeric pty1988.
numeric pty1989.
numeric pty1990.
numeric pty1991.
numeric pty1992.
numeric pty1993.
numeric pty1994.
numeric pty1995.
numeric pty1996.

** Creating annual nominate variables as ideology proxies.
numeric nom1970.
numeric nom1971.
numeric nom1972.
numeric nom1973.
numeric nom1974.
numeric nom1975.
numeric nom1976.
numeric nom1977.
numeric nom1978.
numeric nom1979.
numeric nom1980.
numeric nom1981.
numeric nom1982.
numeric nom1983.
numeric nom1984.
numeric nom1985.
numeric nom1986.
numeric nom1987.
numeric nom1988.
numeric nom1989.
numeric nom1990.
numeric nom1991.
numeric nom1992.
numeric nom1993.
numeric nom1994.
numeric nom1995.
numeric nom1996.


NUMERIC democrat.
COMPUTE DEMOCRAT=0.
IF (party EQ "Democrat") DEMOCRAT=1

COMPUTE AYEAR =RTRIM(AYEAR).
COMPUTE AYEAR =LTRIM(AYEAR).


*Assigning party and nominate scores to judge/year.

if (ayearnum le 1970) and (lyearnum ge 1970) pty1970 = democrat.
if (ayearnum le 1971) and (lyearnum ge 1971) pty1971 = democrat.
if (ayearnum le 1972) and (lyearnum ge 1972) pty1972 = democrat.
if (ayearnum le 1973) and (lyearnum ge 1973) pty1973 = democrat.
if (ayearnum le 1974) and (lyearnum ge 1974) pty1974 = democrat.
if (ayearnum le 1975) and (lyearnum ge 1975) pty1975 = democrat.
if (ayearnum le 1976) and (lyearnum ge 1976) pty1976 = democrat.
if (ayearnum le 1977) and (lyearnum ge 1977) pty1977 = democrat.
if (ayearnum le 1978) and (lyearnum ge 1978) pty1978 = democrat.
if (ayearnum le 1979) and (lyearnum ge 1979) pty1979 = democrat.
if (ayearnum le 1980) and (lyearnum ge 1980) pty1980 = democrat.
if (ayearnum le 1981) and (lyearnum ge 1981) pty1981 = democrat.
if (ayearnum le 1982) and (lyearnum ge 1982) pty1982 = democrat.
if (ayearnum le 1983) and (lyearnum ge 1983) pty1983 = democrat.
if (ayearnum le 1984) and (lyearnum ge 1984) pty1984 = democrat.
if (ayearnum le 1985) and (lyearnum ge 1985) pty1985 = democrat.
if (ayearnum le 1986) and (lyearnum ge 1986) pty1986 = democrat.
if (ayearnum le 1987) and (lyearnum ge 1987) pty1987 = democrat.
if (ayearnum le 1988) and (lyearnum ge 1988) pty1988 = democrat.
if (ayearnum le 1989) and (lyearnum ge 1989) pty1989 = democrat.
if (ayearnum le 1990) and (lyearnum ge 1990) pty1990 = democrat.
if (ayearnum le 1991) and (lyearnum ge 1991) pty1991 = democrat.
if (ayearnum le 1992) and (lyearnum ge 1992) pty1992 = democrat.
if (ayearnum le 1993) and (lyearnum ge 1993) pty1993 = democrat.
if (ayearnum le 1994) and (lyearnum ge 1994) pty1994 = democrat.
if (ayearnum le 1995) and (lyearnum ge 1995) pty1995 = democrat.
if (ayearnum le 1996) and (lyearnum ge 1996) pty1996 = democrat.

if (ayearnum le 1970) and (lyearnum ge 1970) nom1970 = w_nomin.
if (ayearnum le 1971) and (lyearnum ge 1971) nom1971 = w_nomin.
if (ayearnum le 1972) and (lyearnum ge 1972) nom1972 = w_nomin.
if (ayearnum le 1973) and (lyearnum ge 1973) nom1973 = w_nomin.
if (ayearnum le 1974) and (lyearnum ge 1974) nom1974 = w_nomin.
if (ayearnum le 1975) and (lyearnum ge 1975) nom1975 = w_nomin.
if (ayearnum le 1976) and (lyearnum ge 1976) nom1976 = w_nomin.
if (ayearnum le 1977) and (lyearnum ge 1977) nom1977 = w_nomin.
if (ayearnum le 1978) and (lyearnum ge 1978) nom1978 = w_nomin.
if (ayearnum le 1979) and (lyearnum ge 1979) nom1979 = w_nomin.
if (ayearnum le 1980) and (lyearnum ge 1980) nom1980 = w_nomin.
if (ayearnum le 1981) and (lyearnum ge 1981) nom1981 = w_nomin.
if (ayearnum le 1982) and (lyearnum ge 1982) nom1982 = w_nomin.
if (ayearnum le 1983) and (lyearnum ge 1983) nom1983 = w_nomin.
if (ayearnum le 1984) and (lyearnum ge 1984) nom1984 = w_nomin.
if (ayearnum le 1985) and (lyearnum ge 1985) nom1985 = w_nomin.
if (ayearnum le 1986) and (lyearnum ge 1986) nom1986 = w_nomin.
if (ayearnum le 1987) and (lyearnum ge 1987) nom1987 = w_nomin.
if (ayearnum le 1988) and (lyearnum ge 1988) nom1988 = w_nomin.
if (ayearnum le 1989) and (lyearnum ge 1989) nom1989 = w_nomin.
if (ayearnum le 1990) and (lyearnum ge 1990) nom1990 = w_nomin.
if (ayearnum le 1991) and (lyearnum ge 1991) nom1991 = w_nomin.
if (ayearnum le 1992) and (lyearnum ge 1992) nom1992 = w_nomin.
if (ayearnum le 1993) and (lyearnum ge 1993) nom1993 = w_nomin.
if (ayearnum le 1994) and (lyearnum ge 1994) nom1994 = w_nomin.
if (ayearnum le 1995) and (lyearnum ge 1995) nom1995 = w_nomin.
if (ayearnum le 1996) and (lyearnum ge 1996) nom1996 = w_nomin.


*CONVERT CIRCUIT ID INTO A NUMERIC VARIABLE.
NUMERIC circuitn.
if (circuit EQ 'D.C.')     circuitn = 0.
if (circuit EQ 'First')    circuitn = 1.
if (circuit EQ 'Second')   circuitn = 2.
if (circuit EQ 'Third')    circuitn = 3.
if (circuit EQ 'Fourth')   circuitn = 4.
if (circuit EQ 'Fifth')    circuitn = 5.
if (circuit EQ 'Sixth')    circuitn = 6.
if (circuit EQ 'Seventh')  circuitn = 7.
if (circuit EQ 'Eighth')   circuitn = 8.
if (circuit EQ 'Ninth')    circuitn = 9.
if (circuit EQ 'Tenth')    circuitn = 10.
if (circuit EQ 'Eleventh') circuitn = 11.

execute.

*Create variable for circuit ID post 1980. 
*reassigning some fifth circuit justices to eleventh.
COMPUTE state =RTRIM(state).
COMPUTE state =LTRIM(state).
COMPUTE circuitx=circuitn.
if (circuit EQ 'Fifth')and (state eq "Florida" or state eq "Alabama" or state eq "Georgia") circuitx = 11.


** STEP THREE **.
* extraction of characteristics of judges for each circuit.
* using AGGREGATE command.
* resulting temp file "CIRCUITS" can be merged.
* back into the Songer data.


SORT CASES BY CIRCUITN.
AGGREGATE 
  OUTFILE='C:\My Documents\Research\COA_AG\TEMP\tempd.sav'
 /BREAK=CIRCUITN
/PTY1970 = MEAN(PTY1970)
/PTY1971 = MEAN(PTY1971)
/PTY1972 = MEAN(PTY1972)
/PTY1973 = MEAN(PTY1973)
/PTY1974 = MEAN(PTY1974)
/PTY1975 = MEAN(PTY1975)
/PTY1976 = MEAN(PTY1976)
/PTY1977 = MEAN(PTY1977)
/PTY1978 = MEAN(PTY1978)
/PTY1979 = MEAN(PTY1979)
/PTY1980 = MEAN(PTY1980)
/NOM1970 = MEAN(NOM1970)
/NOM1971 = MEAN(NOM1971)
/NOM1972 = MEAN(NOM1972)
/NOM1973 = MEAN(NOM1973)
/NOM1974 = MEAN(NOM1974)
/NOM1975 = MEAN(NOM1975)
/NOM1976 = MEAN(NOM1976)
/NOM1977 = MEAN(NOM1977)
/NOM1978 = MEAN(NOM1978)
/NOM1979 = MEAN(NOM1979)
/NOM1980 = MEAN(NOM1980).
execute.

SORT CASES BY CIRCUITx.
AGGREGATE 
  OUTFILE='C:\My Documents\Research\COA_AG\TEMP\tempe.sav'
 /BREAK=CIRCUITx
/PTY1981 = MEAN(PTY1981)
/PTY1982 = MEAN(PTY1982)
/PTY1983 = MEAN(PTY1983)
/PTY1984 = MEAN(PTY1984)
/PTY1985 = MEAN(PTY1985)
/PTY1986 = MEAN(PTY1986)
/PTY1987 = MEAN(PTY1987)
/PTY1988 = MEAN(PTY1988)
/PTY1989 = MEAN(PTY1989)
/PTY1990 = MEAN(PTY1990)
/PTY1991 = MEAN(PTY1991)
/PTY1992 = MEAN(PTY1992)
/PTY1993 = MEAN(PTY1993)
/PTY1994 = MEAN(PTY1994)
/PTY1995 = MEAN(PTY1995)
/PTY1996 = MEAN(PTY1996)
/NOM1981 = MEAN(NOM1981)
/NOM1982 = MEAN(NOM1982)
/NOM1983 = MEAN(NOM1983)
/NOM1984 = MEAN(NOM1984)
/NOM1985 = MEAN(NOM1985)
/NOM1986 = MEAN(NOM1986)
/NOM1987 = MEAN(NOM1987)
/NOM1988 = MEAN(NOM1988)
/NOM1989 = MEAN(NOM1989)
/NOM1990 = MEAN(NOM1990)
/NOM1991 = MEAN(NOM1991)
/NOM1992 = MEAN(NOM1992)
/NOM1993 = MEAN(NOM1993)
/NOM1994 = MEAN(NOM1994)
/NOM1995 = MEAN(NOM1995)
/NOM1996 = MEAN(NOM1996).
execute.


GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1970.
compute nominate=nom1970.
compute year=1970.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1970.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1971.
compute nominate=nom1971.
compute year=1971.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1971.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1972.
compute nominate=nom1972.
compute year=1972.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1972.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1973.
compute nominate=nom1973.
compute year=1973.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1973.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1974.
compute nominate=nom1974.
compute year=1974.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1974.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1975.
compute nominate=nom1975.
compute year=1975.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1975.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1976.
compute nominate=nom1976.
compute year=1976.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1976.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1977.
compute nominate=nom1977.
compute year=1977.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1977.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1978.
compute nominate=nom1978.
compute year=1978.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1978.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1979.
compute nominate=nom1979.
compute year=1979.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1979.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempd.sav'.
compute party=pty1980.
compute nominate=nom1980.
compute year=1980.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1980.sav'
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1981.
compute nominate=nom1981.
compute year=1981.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1981.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1982.
compute nominate=nom1982.
compute year=1982.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1982.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1983.
compute nominate=nom1983.
compute year=1983.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1983.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1984.
compute nominate=nom1984.
compute year=1984.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1984.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1985.
compute nominate=nom1985.
compute year=1985.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1985.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1986.
compute nominate=nom1986.
compute year=1986.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1986.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1987.
compute nominate=nom1987.
compute year=1987.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1987.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1988.
compute nominate=nom1988.
compute year=1988.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1988.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1989.
compute nominate=nom1989.
compute year=1989.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1989.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1990.
compute nominate=nom1990.
compute year=1990.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1990.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1991.
compute nominate=nom1991.
compute year=1991.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1991.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1992.
compute nominate=nom1992.
compute year=1992.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1992.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1993.
compute nominate=nom1993.
compute year=1993.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1993.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1994.
compute nominate=nom1994.
compute year=1994.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1994.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1995.
compute nominate=nom1995.
compute year=1995.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1995.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.

GET FILE='C:\My Documents\Research\Coa_ag\TEMP\tempe.sav'.
compute party=pty1996.
compute nominate=nom1996.
compute year=1996.
SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1996.sav'
/RENAME=(circuitx=circuitn)
/KEEP= circuitn year party nominate.






** merging temp files to produce circuit/year dataset.

ADD FILES FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1970.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1971.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1972.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1973.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1974.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1975.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1976.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1977.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1978.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1979.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1980.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1981.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1982.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1983.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1984.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1985.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1986.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1987.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1988.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1989.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1990.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1991.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1992.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1993.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1994.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1995.sav'
/FILE='C:\My Documents\Research\Coa_ag\TEMP\TEMP1996.sav'.

RENAME VARIABLES (circuitn=circuit)(party=circ_pty).

SAVE OUTFILE='C:\My Documents\Research\Coa_ag\TEMP\circuits.sav'.