* PROGRAM ZA ANALIZO PODATKOV CSES PRI PREDMETU METODOLOGIJA
* .

GET
  FILE='C:\cses\module1\20030804\csesmod1.sav'.
FREQUENCIES
  VARIABLES=A1003 A1004 A3001 A3022 A3023   A3004 A2001 A2002 A2003
  /ORDER=  ANALYSIS .
* preden vključiš uteži, zagotovi, da jih program pravilno bere.
* WEIGHT BY A1014_1 .
* izbor držav za amalizo. 
USE ALL.
COMPUTE filter_$=(A1003 =                 05611999  
 | A1003 =              05621999  
 | A1003 =              20301996  
 | A1003 =              20801998  
 | A1003 =              27601998  
 | A1003 =              34801998  
 | A1003 =              35201999  
 | A1003 =              44001997  
 | A1003 =              52801998  
 | A1003 =              57801997  
 | A1003 =              61601997  
 | A1003 =              62002002  
 | A1003 =              64201996  
 | A1003 =              64301999  
 | A1003 =              64302000  
 | A1003 =              70501996  
 | A1003 =              72401996  
 | A1003 =              72402000  
 | A1003 =              75201998  
 | A1003 =              75601999  
 | A1003 =              80401998  
 | A1003 =              82601997 ). 
VARIABLE LABEL filter_$ 'A1003=4324 | A1003 = 222 (FILTER)'.
VALUE LABELS filter_$  0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE .
* preveri izbor držav in delovanje uteži. 
FREQUENCIES
  VARIABLES=A1003 A1004 A3001 A3022 A3023   A3004 A2001 A2002 A2003
  /ORDER=  ANALYSIS .
* preglej popolnost podatkov po državah. 
CROSS A3001 A3022 A3023   A3004 A2001 A2002 A2003 BY A1004 /CELL = COL/MISS= INCLUDE.
* priprava spremenljivk - dummyzacija - naredim dihotomne spremenljivke za vsako kategorijo posebej, pazim na predznak.
freq A1003 A1004 A3001 A3022 A3023   A3004 A2001 A2002 A2003 .
recode A2002 (1=1) (2=0) into gender_M.
cross gender_M by A2002 .
RECODE A3004 (1=1) (5,6=0) INTO STRAN_B.
CROSS A3004 BY STRAN_B.
* DOLOCANJE PREDZNAKOV .
RECODE A3001 (5=1) (4,3=2) (2=3) (1=4) INTO DEM_ZAD.
VAL LAB A3001 4 'VISOKO'. 
CROSS A3001 BY DEM_ZAD.  
RECODE A3022 A3023   (5=1) (4=2) (3=3) (2=4) (1=5) INTO EKON_DOB EKON_IZB.
VAL LAB EKON_DOB EKON_IZB 5 'DOBRO'. 
CROSS A3022 A3023   BY EKON_DOB EKON_IZB.  
* dopolni za starost - skupine do 30 let, nad 50. 
compute age30=0. 
compute age51=0. 
if  (A2001 < 31) age30=1. 
if  (A2001 > 50) age51=1. 
cross A2001 by age30 age51.
* spremenljivke za države.
compute	bel_1999	=0.	
compute	bel_2000	=0.	
compute     CZE_1996    =0.
compute     CHE_1999    =0.
compute	DEU_1998	=0.	
compute	DNK_1998	=0.	
compute	ESP_1996	=0.	
compute	ESP_2000	=0.	
compute	GBR_1997	=0.	
compute	HUN_1998	=0.	
compute	ISL_1999	=0.	
compute	LTU_1997	=0.	
compute	NLD_1998	=0.	
compute	NOR_1997	=0.	
compute	POL_1997	=0.
compute	PRT_2002	=0.
compute	ROU_1996	=0.
compute	RUS_1999	=0.
compute	RUS_2000	=0.
compute	SVN_1996	=0.
compute	SWE_1998	=0.
compute	UKR_1998	=0.

if A1004=	'BELF1999'	bel_1999 =	1.
if A1004=	'BELW1999'	bel_1999=		1.
if A1004=	'CHE_1999'	CHE_1999=		1.
if A1004=	'CZE_1996'	CZE_1996	=	1.
if A1004=	'DEU_1998'	DEU_1998	=	1.
if A1004=	'DNK_1998'	DNK_1998	=	1.
if A1004=	'ESP_1996'	ESP_1996	=	1.
if A1004=	'ESP_2000'	ESP_2000	=	1.
if A1004=	'GBR_1997'	GBR_1997	=	1.
if A1004=	'HUN_1998'	HUN_1998	=	1.
if A1004=	'ISL_1999'	ISL_1999	=	1.
if A1004=	'LTU_1997'	LTU_1997	=	1.
if A1004=	'NLD_1998'	NLD_1998	=	1.
if A1004=	'NOR_1997'	NOR_1997	=	1.
if A1004=	'POL_1997'	POL_1997	=	1.
if A1004=	'PRT_2002'	PRT_2002	=	1.
if A1004=	'ROU_1996'	ROU_1996	=	1.
if A1004=	'RUS_1999'	RUS_1999	=	1.
if A1004=	'RUS_2000'	RUS_2000	=	1.
if A1004=	'SVN_1996'	SVN_1996	=	1.
if A1004=	'SWE_1998'	SWE_1998	=	1.
if A1004=	'UKR_1998'	UKR_1998	=	1.
* preveri narejeno. 
CROSS A1004 BY bel_1999 DEU_1998 DNK_1998 ESP_1996 ESP_2000 GBR_1997 HUN_1998
  ISL_1999 LTU_1997 NLD_1998 NOR_1997 POL_1997 PRT_2002 ROU_1996 RUS_1999
  RUS_2000 SVN_1996 SWE_1998 UKR_1998 CHE_1999 CZE_1996 . 



***** makro spremenljivke. 
***   vir glej npr_
***   http://umich.edu/~cses/download/contributions/contributions.htm ipd.
*** .
compute gdp=-1. 
* dopolni: 
*if A1004=	'BELF1999'	GDP=	?	.
*if A1004=	'BELW1999'	GDP=	?	.
*if A1004=	'CHE_1999'	GDP=	?.
*if A1004=	'CZE_1996'	GDP=	?.
*if A1004=	'DEU_1998'	GDP=	?.
*if A1004=	'DNK_1998'	GDP=	?.
*if A1004=	'ESP_1996'	GDP=	?.
*if A1004=	'ESP_2000'	GDP=	?.
*if A1004=	'GBR_1997'	GDP=	?.
*if A1004=	'HUN_1998'	GDP=	?.
*if A1004=	'ISL_1999'	GDP=	?.
*if A1004=	'LTU_1997'	GDP=	?.
*if A1004=	'NLD_1998'	GDP=	?.
*if A1004=	'NOR_1997'	GDP=	?.
*if A1004=	'POL_1997'	GDP=	?.
*if A1004=	'PRT_2002'	GDP=	?.
*if A1004=	'ROU_1996'	GDP=	?.
*if A1004=	'RUS_1999'	GDP=	?.
*if A1004=	'RUS_2000'	GDP=	?.
*if A1004=	'SVN_1996'	GDP=	?.
*if A1004=	'SWE_1998'	GDP=	?.
*if A1004=	'UKR_1998'	GDP=	?.
freq gdp.
compute disprop=-1.
if A1004=	'BELF1999'	disprop=	4.12	.
if A1004=	'BELW1999'	disprop=	4.12	.
if A1004=	'CHE_1999'	disprop=	5.08	.
if A1004=	'CZE_1996'	disprop=	5.69	.
if A1004=	'DEU_1998'	disprop=	5.01	.
if A1004=	'DNK_1998'	disprop=	7.00	.
if A1004=	'ESP_1996'	disprop=	5.60	.
if A1004=	'ESP_2000'	disprop=	7.06	.
if A1004=	'GBR_1997'	disprop=	16.54	.
if A1004=	'HUN_1998'	disprop=	12.20	.
if A1004=	'ISL_1999'	disprop=	2.20	.
if A1004=	'LTU_1997'	disprop=	14.96	.
if A1004=	'NLD_1998'	disprop=	2.46	.
if A1004=	'NOR_1997'	disprop=	3.96	.
if A1004=	'POL_1997'	disprop=	9.75	.
if A1004=	'PRT_2002'	disprop=	5.33	.
if A1004=	'ROU_1996'	disprop=	8.70	.
if A1004=	'RUS_1999'	disprop=	12.75	.
if A1004=	'RUS_2000'	disprop=	12.75	.
if A1004=	'SVN_1996'	disprop=	3.94	.
if A1004=	'SWE_1998'	disprop=	2.11	.
if A1004=	'UKR_1998'	disprop=	2.44	.
freq disprop. 
cross disprop by A1003 A1004 .
if A1004=	'BELF1999'	stara_d	=1	.
if A1004=	'BELW1999'	stara_d	=1	.
if A1004=	'CHE_1999'	stara_d	=1	.
if A1004=	'CZE_1996'	stara_d	=0	.
if A1004=	'DEU_1998'	stara_d	=1	.
if A1004=	'DNK_1998'	stara_d	=1	.
if A1004=	'ESP_1996'	stara_d	=0	.
if A1004=	'ESP_2000'	stara_d	=0	.
if A1004=	'GBR_1997'	stara_d	=1	.
if A1004=	'HUN_1998'	stara_d	=0	.
if A1004=	'ISL_1999'	stara_d	=1	.
if A1004=	'LTU_1997'	stara_d	=0	.
if A1004=	'NLD_1998'	stara_d	=1	.
if A1004=	'NOR_1997'	stara_d	=1	.
if A1004=	'POL_1997'	stara_d	=0	.
if A1004=	'PRT_2002'	stara_d	=0	.
if A1004=	'ROU_1996'	stara_d	=0	.
if A1004=	'RUS_1999'	stara_d	=0	.
if A1004=	'RUS_2000'	stara_d	=0	.
if A1004=	'SVN_1996'	stara_d	=0	.
if A1004=	'SWE_1998'	stara_d	=1	.
if A1004=	'UKR_1998'	stara_d	=0	.
freq stara_d. 
cross stara_d by A1003 A1004 .

* dopolni s podatki o zmagovalcih in porazencih . 
do if A1004='BELF1999' 
*recode A2030 (1,2,?,?,?=1) (else=0) into zmag_por. 
end if .
*val lab zmag_por 1 'zmagovalci' 2 'porazenci'.

* dodatek z/p.
compute zmag_por=-1.
miss val zmag_por (-1).

FREQ A1004  A2030.

CROSS A2030 BY  A1004  .


do if A1004='BELF1999' .
recode A2030 (1,2,3,4,5 = 1) (else=0) into zmag_por. 
end if .

do if A1004='SWE_1998' .
recode A2030 (1,2,7=1) (else=0) into zmag_por . 
end if .

do if A1004='DEU_1998' .
recode A2030 (4,6=1) (else=0) into zmag_por . 
end if .

do if A1004='DNK_1998' .
recode A2030 (1,2=1) (else=0) into zmag_por . 
end if .

do if A1004='GBR_1997' .
recode A2030 (2=1) (else=0) into zmag_por . 
end if .

do if A1004='HUN_1998' .
recode A2030 (3,4,7=1) (else=0) into zmag_por . 
end if .

do if A1004='SVN_1996' .
recode A2030 (1,2,8=1) (else=0) into zmag_por. 
end if .

do if A1004='RUS_2000' .
recode A2030 (14,19=1) (else=0) into zmag_por. 
end if .

do if A1004='NLD_1998' .
recode A2030 (1,3,4=1) (else=0) into zmag_por. 
end if .

do if A1004='NOR_1997' .
recode A2030 (4,5,6=1) (else=0) into zmag_por. 
end if .

do if A1004='CHE_1999' .
recode A2030 (1,2,3,4=1) (else=0) into zmag_por. 
end if .

do if A1004='ESP_1996' .
recode A2030 (1=1) (else=0) into zmag_por. 
end if .

do if A1004='ESP_2000' .
recode A2030 (1=1) (else=0) into zmag_por. 
end if .

do if A1004='ISL_1999' .
recode A2030 (2,3=1) (else=0) into zmag_por. 
end if .

do if A1004='LTU_1997' .
recode A2030 (2,6=1) (else=0) into zmag_por. 
end if .

do if A1004='CZE_1999' .
*recode A2030 (3,4,5=1) (else=0) into zmag_por. 
end if .

do if A1004='PRT2002' .
recode A2030 (1,2,3,4,5=1) (else=0) into zmag_por. 
end if .

CROSS A2030 BY zmag_por BY A1004. 


* primer analiza dejavnikov na mikro nivoju, združena datoteka držav. 
REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN
  /DEPENDENT DEM_ZAD 
  /METHOD=ENTER zmag_por  EKON_DOB EKON_IZB  STRAN_B age30 age51 gender_M A2003 
  bel_1999 DEU_1998 DNK_1998 ESP_1996 ESP_2000 GBR_1997 HUN_1998
  ISL_1999 LTU_1997 NLD_1998 NOR_1997 POL_1997 PRT_2002 ROU_1996 RUS_1999
  RUS_2000 SWE_1998 UKR_1998 CHE_1999 CZE_1996 .

* dodane so makro spremenljivke (namesto držav). 
REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN
  /DEPENDENT DEM_ZAD 
  /METHOD=ENTER zmag_por  EKON_DOB EKON_IZB  STRAN_B age30 age51 gender_M A2003 
  GDP disprop stara_d.


* razlike v povezanosti med spremenljivkami med državami - ločene analize po državah.
sort cases by A1004.
split file layered by A1004 .
REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN
  /DEPENDENT DEM_ZAD 
  /METHOD=ENTER EKON_DOB EKON_IZB  STRAN_B age30 age51 gender_M A2003 
 .

* model pojasnitve razlik v povezanosti z makro dejavniki (vključena interakcija - ekizb_star) .
split file off. 
cross A1004 by stara_d.
compute ekizb_star=EKON_IZB  *  stara_d.
REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN
  /DEPENDENT DEM_ZAD 
  /METHOD=ENTER EKON_DOB EKON_IZB STRAN_B age30 age51 gender_M A2003 
   ekizb_star
   GDP disprop stara_d.

* varianta interakcije brez spremenljivk na makronivoju. 
REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN
  /DEPENDENT DEM_ZAD 
  /METHOD=ENTER EKON_DOB EKON_IZB STRAN_B age30 age51 gender_M A2003 
   ekizb_star
   bel_1999 DEU_1998 DNK_1998 ESP_1996 ESP_2000 GBR_1997 HUN_1998
   ISL_1999 LTU_1997 NLD_1998 NOR_1997 POL_1997 PRT_2002 ROU_1996 RUS_1999
   RUS_2000 SWE_1998 UKR_1998 CHE_1999 CZE_1996 .