*
  MOTV harjoitusaineistot
  JS 17.9.2002
.

/*-------------------------------------------------------------------------*/
/*  Eurobarometri 53 : rasismi, tietoyhteiskunta, infrastruktuuripalvelut  */
/*  ja elintarvikkeiden pakkausmerkinnät, huhti-toukokuu 2000              */
/*-------------------------------------------------------------------------*/

/*  Avataan tiedosto ja pidetään valitut muuttujat                         */

IMPORT
  FILE='x:\data\fsd0091\daf0091.por'
  /keep = q1c02 q1c14 q1c15 q2 q4 q28 q29 q43c01 to q43c14 q6401 to q6408 q79ac01 to q79ac14 
          d7 d8 d10 d11 d12r d15ar d15br d19a d19b d21ar.
exe.

/*  Valitaan vain Tanska, Ruotsi ja Suomi                                  */

SELECT IF (q1c02 = 1 | q1c14 = 1 | q1c15 = 1).
exe.

/*  Valitaan 30% satunnaisotos -> jokaisesta maasta noin 300 havaintoa     */

SAMPLE .30.
exe.

/*  Muodostetaan summamuuttuja  (0-13)                                     */

COUNT sum=q79ac01 to q79ac13 (1).
FORMATS sum (F2.0).
exe.
VARIABLE LABELS sum "Number of Internet, Multimedia etc. devices at home" .

/*  Muodostetaan country muuttuja                                          */

if (q1c02 = 1) q1 = 2 .
if (q1c14 = 1) q1 = 14 .
if (q1c15 = 1) q1 = 15 .
FORMATS q1 (F2.0).
exe.
VARIABLE LABELS q1 "Country" .
VALUE LABELS q1
2 "Denmark"
14 "Sweden"
15 "Finland"
.
exe.

/*  Tallennetaan harjoitusaineisto                                         */

SAVE OUTFILE='z:\motv\osaeb53.sav' /keep = q1 q2 to q79ac14 sum d7 to d21ar .
exe.

/*-------------------------------------------------------------------------*/
/*  Kaupunkipalvelututkimus 2001                                           */
/*-------------------------------------------------------------------------*/

/*  Tallennetaan alkuperäisestä datasta kunta muuttuja tilap. tiedostoon   */

GET FILE = 'x:\data\fsd1205\original\kapa01.sav'
  /keep = kunta .
SAVE OUTFILE = 'c:\temp\temp.sav'.
exe.

/*  Avataan tiedosto ja pidetään valitut muuttujat                         */

IMPORT
  FILE = 'x:\data\fsd1205\daf1205.por'
  /keep = k02 to k17_18 k2801 to k2809 k3101 to k3112 k4401 to k4511.
exe.

FORMATS k17_1 to k17_18 (F2.0).

/*  Liitetään dataan kunta muuttuja                                        */
MATCH FILES FILE = *  /FILE = 'c:\temp\temp.sav' .
exe.
VARIABLE LABELS kunta "[kunta] kuntanumero".

/*  Valitaan vain hki, jns, jkylä, kuopio, oulu, rniemi, tre, turku, vaasa */

SELECT IF ( kunta = 91 | kunta = 167 | kunta = 179 | kunta = 297 | 
            kunta = 564 | kunta = 698 | kunta = 837 | kunta = 853 | kunta = 905) .
exe.

/*  Tallennetaan harjoitusaineisto                                         */
 
SAVE OUTFILE = 'z:\motv\osakapa2001.sav'.
exe.

/*-------------------------------------------------------------------------*/
/*  Suomalaisten suhtautuminen ulkomaalaisiin 1996                         */
/*-------------------------------------------------------------------------*/

/*  Avataan tiedosto ja pidetään valitut muuttujat                         */

IMPORT
  FILE = 'x:\data\fsd1111\daf1111.por'
   /keep = q1 q2 q6_1 q6_2 q9_1 q9_2 q9_3 q10 q12_1 q16 q24_1 to q24_12 
           q26_1 to q26_23 q31 to q34 q41 q44_1 to q44_4 q47_1 to q48_6 .
exe.

/*  Tallennetaan harjoitusaineisto                                         */
 
SAVE OUTFILE = 'z:\motv\osaulkom0.sav'.
exe.

/*  200 havainnon satunnaisotos                                            */
SAMPLE 200 from  755.
exe.

/*  Tallennetaan harjoitusaineisto                                         */
 
SAVE OUTFILE = 'z:\motv\osaulkom1.sav'.
exe.

/*-------------------------------------------------------------------------*/
/*  Generoidut aineistot                                                   */
/*-------------------------------------------------------------------------*/

IMPORT
  FILE = 'x:\data\fsd1051\daf1051.por'
   /keep = bv1 to bv8.
exe.

/* Valitaan 1000 satunnaisotos                                             */
SAMPLE 1000 from  1277.
EXE .

/* Havaintotunnus */
COMPUTE havt = $CASENUM.
VARIABLE LABELS havt "[havt] Havaintotunnus".
exe.

/* Pituus */
COMPUTE bv9 = RND(RV.NORMAL(175,8)) .
EXE.
VARIABLE LABELS bv9 "[bv9] Pituus (cm)".

/* Paino */
COMPUTE bv10 = RND((bv9/100) * RV.NORMAL(50,5)) .
EXE.
VARIABLE LABELS bv10 "[bv10] Paino (kg)".

/* Ikä */
IF (bv2 = 1) bv11 = 18 + RND(7 * RV.UNIFORM(0,1)) .
IF (bv2 = 2) bv11 = 26 + RND(9 * RV.UNIFORM(0,1)) .
IF (bv2 = 3) bv11 = 36 + RND(9 * RV.UNIFORM(0,1)) .
IF (bv2 = 4) bv11 = 46 + RND(9 * RV.UNIFORM(0,1)) .
IF (bv2 = 5) bv11 = 56 + RND(9 * RV.UNIFORM(0,1)) .
IF (bv2 = 6) bv11 = 66 + RND(20 * RV.UNIFORM(0,1)) .
EXE.
VARIABLE LABELS bv11 "[bv11] Ikä".

/* Luottamus instituutioihin */
COMPUTE luot_1 = RND(RV.UNIFORM(1,5)) .
COMPUTE luot_2 = RND(RV.UNIFORM(1,5)) .
COMPUTE luot_3 = RND(RV.UNIFORM(1,5)) .
COMPUTE luot_4 = RND(RV.UNIFORM(1,5)) .
COMPUTE luot_5 = RND(RV.UNIFORM(1,5)) .
COMPUTE luot_6 = RND(RV.UNIFORM(1,5)) .
COMPUTE luot_7 = RND(RV.UNIFORM(1,5)) .
COMPUTE luot_8 = RND(RV.UNIFORM(1,5)) .
COMPUTE luot_9 = RND(RV.UNIFORM(1,5)) .
EXE.
VARIABLE LABELS luot_1 "[luot_1] Luottamus kirkkoon".
VARIABLE LABELS luot_2 "[luot_2] Luottamus puolustusvoimiin".
VARIABLE LABELS luot_3 "[luot_3] Luottamus poliisiin".
VARIABLE LABELS luot_4 "[luot_4] Luottamus oikeuslaitokseen".
VARIABLE LABELS luot_5 "[luot_5] Luottamus eduskuntaan".
VARIABLE LABELS luot_6 "[luot_6] Luottamus pankkeihin".
VARIABLE LABELS luot_7 "[luot_7] Luottamus suuryrityksiin".
VARIABLE LABELS luot_8 "[luot_8] Luottamus Euroopan Unioniin".
VARIABLE LABELS luot_9 "[luot_9] Luottamus luonnonsuojelijoihin".

VALUE LABELS luot_1 to luot_9
1 "paljon"
2 "melko paljon"
3 "en osaa sanoa"
4 "ei kovinkaan paljon"
5 "ei lainkaan"
.

/* Väittämiä */
COMPUTE vait_1 = RND(RV.UNIFORM(1,5)) .
COMPUTE vait_2 = RND(RV.UNIFORM(1,5)) .
COMPUTE vait_3 = RND(RV.UNIFORM(1,5)) .
COMPUTE vait_4 = RND(RV.UNIFORM(1,5)) .
COMPUTE vait_5 = RND(RV.UNIFORM(1,5)) .
COMPUTE vait_6 = RND(RV.UNIFORM(1,5)) .
COMPUTE vait_7 = RND(RV.UNIFORM(1,5)) .
COMPUTE vait_8 = RND(RV.UNIFORM(1,5)) .
COMPUTE vait_9 = RND(RV.UNIFORM(1,5)) .
EXE.
VARIABLE LABELS vait_1 "[vait_1] Lähivuosina huumeitten käyttö karkaa viranomaisten valvonnasta".
VARIABLE LABELS vait_2 "[vait_2] Lähivuosina syttyy laaja ydinsota".
VARIABLE LABELS vait_3 "[vait_3] Lähivuosina syntyy pörssiromahdus ja maailmanlaajuinen lama".
VARIABLE LABELS vait_4 "[vait_4] Jumala on olemassa".
VARIABLE LABELS vait_5 "[vait_5] Saatana on olemassa".
VARIABLE LABELS vait_6 "[vait_6] Hyväksyn kuolemanrangaistuksen".
VARIABLE LABELS vait_7 "[vait_7] Kaikki ovat tervetulleita vapaasti muuttamaan Suomeen".
VARIABLE LABELS vait_8 "[vait_8] Työtön suomalainen on työllistettävä ennen ulkomaalaista".
VARIABLE LABELS vait_9 "[vait_9] Nykynuoret tarvitsevat ankarampaa kasvatusta".

VALUE LABELS vait_1 to vait_9
1 "täysin samaa mieltä"
2 "jokseenkin samaa mieltä"
3 "en osaa sanoa"
4 "jokseenkin eri mieltä"
5 "täysin eri mieltä"
.

FORMATS luot_1 to vait_9 (F1.0).
FORMATS havt bv9 bv10 bv11 (F3.0).
exe.

/*  Tallennetaan harjoitusaineisto                                         */

SAVE OUTFILE = 'z:\motv\osagen0.sav' /keep = havt bv1 to bv8 bv9 bv10 bv11 luot_1 to vait_9.
exe.

/* vain 100 havaintoa */
SAMPLE 100 from 1000.
EXE .

/*  Tallennetaan harjoitusaineisto                                         */
SAVE OUTFILE = 'z:\motv\osagen1.sav'.
exe.

/*-------------------------------------------------------------------------*/
/*  Pikkuaineistot                                                         */
/*-------------------------------------------------------------------------*/

/* D- matriisi */

GET
  FILE = 'z:\motv\daf1038+kunta.sav'
   /keep = v16 v20 v21 v42 to v46.
exe.


/* Valitaan kunnat */

SELECT IF (v16 = 49 | v16 = 92 | v16 = 91 | v16 = 109 | v16 = 167 | v16 = 179
  | v16 = 205 | v16 = 285 | v16 = 564 | v16 = 398 | v16 = 405 | v16 = 491 |
  v16 = 297 | v16 = 593 | v16 = 609 | v16 = 698 | v16 = 740 | v16 = 837 | v16
  = 853 | v16 = 905  ).
EXECUTE .

VALUE LABELS v16
49 "Espoo"
92 "Vantaa"
91 "Helsinki"
109 "Hämeenlinna"
167 "Joensuu"
179 "Jyväskylä"
205 "Kajaani"
285 "Kotka"
564 "Oulu"
398 "Lahti"
405 "Lappeenranta"
491 "Mikkeli"
297 "Kuopio"
593 "Pieksämäki"
609 "Pori"
698 "Rovaniemi"
740 "Savonlinna"
837 "Tampere"
853 "Turku"
905 "Vaasa"
.

/* vain 200 havaintoa */
SAMPLE 200 from 553.
EXE .

/*  Tallennetaan harjoitusaineisto                                         */
SAVE OUTFILE = 'z:\motv\d.sav'.
exe.

/* A- matriisi */

GET
  FILE = 'z:\motv\kunta.sav'
   /keep = knimi to veroayri kuntanro.
exe.

SELECT IF (kuntanro < 400).
EXECUTE .

/*  Tallennetaan harjoitusaineisto                                         */
SAVE OUTFILE = 'z:\motv\a.sav'.
exe.

/* B- matriisi */

GET
  FILE = 'z:\motv\kunta.sav'
   /keep = knimi to veroayri kuntanro.
exe.

SELECT IF (kuntanro > 400).
EXECUTE .

/*  Tallennetaan harjoitusaineisto                                         */
SAVE OUTFILE = 'z:\motv\b.sav'.
exe.

/* C- matriisi */

GET
  FILE = 'z:\motv\kunta.sav'
   /keep = knimi kuntanro alkoholi huumerik vakivrik ljuop .
exe.

/*  Tallennetaan harjoitusaineisto                                         */
SAVE OUTFILE = 'z:\motv\c.sav'.
exe.