rename variables (var00001 to var00021 = case hawk1 neut1 dove1 hawk2 neut2 dove2 hawk3 neut3 dove3 
  chawk cdove vote cong exec commie ncrisis month year shawk sdove) .
compute senate=shawk/(shawk+sdove).
compute tot1=(((hawk1-dove1)/(hawk1+dove1+neut1))+1)/2.
compute tot2=(((hawk2-dove2)/(hawk2+dove2+neut2))+1)/2.
compute tot3=(((hawk3-dove3)/(hawk3+dove3+neut3))+1)/2.
compute tmedia=(tot1+tot2+tot3)/3.
*reliability vars=tot1 tot2 tot3/scale (med)=all.
recode case (9 14 17 18 20 22 23 24=1)(else=0) into viet/
   case ( 18 20 22 23  6 7 8 40 47 48=1)(else=0) into war/
   case (12 19 25 33 36 38 42 43 44 46=1)(else=0) into minforce/
   case (7 13 20 24 29 31 43=1)(else=0) into setback/ 
   case (19 25 33 36 38 44 48=1)(else=0) into win/  
   case (11 27 29 30 31 36 37, 38 40 thru 48=0)(else=1) into commie/
   case (6 17 18 =1)(else=0) into fight/
   case (0 thru 19=0)(else=1) into tet/
   case (12 13 19 33 34 38 44=1)(else=0) into america/
   case (1 3 4 5 15 45 47 48=1)(else=0) into europe/
   case (6 7 8 9 14 17 18 20 thru 25 28 32=1)(else=0) into asia/
   case (6 17 19 25 29 31 33 36 38 40 44 47=1)(else=0) into start/
   case (2 11 27 29 30 31 36 37 40 41 46=1)(else=0) into mideast/
   ncrisis (1=0)(else=1) into late/
   case (40 37 34 30 26 28 12 11 9 8 =1)(else=0) into nonob/
   case (6 7 8=1)(else=0) into korea.
compute year=(year-45)/47.
compute inter=commie*cong.



******************************
Regressions for Table 1.

regression vars=tmedia cong /dep=tmedia/enter.

temporary.
select if america eq 1 .
regression vars=tmedia cong /dep=tmedia/enter.
temporary.
select if asia eq 1.
regression vars=tmedia cong /dep=tmedia/enter.
temporary.
select if europe eq 1.
regression vars=tmedia cong /dep=tmedia/enter.
temporary.
select if mideast eq 1.
regression vars=tmedia cong /dep=tmedia/enter.
temporary.
select if commie eq 0.
regression vars=tmedia cong /dep=tmedia/enter.
temporary.
select if commie eq 1.
regression vars=tmedia cong /dep=tmedia/enter.

temporary.
select if tet eq 0.
regression vars=tmedia cong /dep=tmedia/enter.
temporary.
select if tet eq 1.
regression vars=tmedia cong /dep=tmedia/enter.
******************************


******************************
Regressions for Table 2.
regression vars= commie setback late war start minforce year 
   exec cong tmedia/dep=tmedia/enter.
regression vars= commie setback late war start minforce year 
   exec cong tot1/dep=tot1/enter.
regression vars= commie setback late war start minforce year 
   exec cong tot2/dep=tot2/enter.
temporary.
select if case le 40.
regression vars= commie setback late war start minforce year 
   exec cong tot3/dep=tot3/enter.
******************************

******************************
Regressions for Table 3.

temporary.
select if cong ge 0.
breakdown tables=tot3 cong by commie.
temporary.
select if vote eq 1.
breakdown tables=tot3 cong by commie.

temporary.
select if case le 40.
regression vars= cong tot3 commie inter/dep=tot3/enter.

regression vars= cong tot3 commie inter/dep=tot3/enter.
******************************.
*For tests of equal variance.

temporary.
select if case ne 42.
T-TEST
  GROUPS=commie(0 1)
  /MISSING=ANALYSIS
  /VARIABLES=tot3
  /CRITERIA=CIN(.95) .

T-TEST
  GROUPS=commie(0 1)
  /MISSING=ANALYSIS
  /VARIABLES=cong
  /CRITERIA=CIN(.95) .

temporary.
select if vote eq 1.
T-TEST
  GROUPS=commie(0 1)
  /MISSING=ANALYSIS
  /VARIABLES=cong
  /CRITERIA=CIN(.95)