******************* 
**
** Court Voting in the Senate - April 2007
** 
*******************

******************* 
**	Load data
*******************
cd c:\StataData
clear
set matsize 800
set memory 350m
insheet using SC_CongVotes_April2007_AJPS.txt, names

******************* 
**	Generate data
*******************
gen MBdist = abs(senideol - nomideol)
gen EpsteinPresStr = .
replace EpsteinPresStr = 1 if strpres=="strong"
replace EpsteinPresStr = 0 if strpres=="weak"


******************* 
**	Test Measures against each other
*******************

** Table 1: All recorded votes
probit senvote MBdist 		lackqual presparty EpsteinPresStr 	if eucldist2!=. 	& voice ==0
probit senvote eucldist2 	lackqual presparty EpsteinPresStr 	if MBdist !=.	& voice ==0

** Table 1: Pre-1970 recorded votes
probit senvote MBdist 		lackqual presparty EpsteinPresStr 	if eucldist2!=. 	& voice ==0 & congress < 92
probit senvote eucldist2 	lackqual presparty EpsteinPresStr 	if MBdist !=.	& voice ==0 & congress < 92