* Encoding: UTF-8.
get file='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\at1992haf.sav'
   /keep swave msamp hldid persid id parntid1 parntid2 partid hhtype hhldsize 
    nchild agekidx agekid2 incorig income ownhome urban computer vehicle famstat 
    singpar relrefp civstat cohab citizen empstat emp unemp student retired empsp 
    workhrs empinclm occupo isco1 sector educa edcat rushed health carer disab 
    ocombwt propwt.

match files
    table=*
    file='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\at1992hef.sav'
   /by swave msamp hldid persid id.
execute.

compute animal=0.
if main=27 or main=47 or sec=27 or sec=47 animal=1.
var lab animal "with a pet, companion/service/domestic animal".
val lab animal
   -9 could not be created for study
   -7 not collected for diary group
    0 no
    1 yes.
cro main sec by animal.

recode main (2, 3=1) (5, 6=2) (1, 4=3) (7 thru 14=4)
   (15 thru 17=5) (18, 19=6) (20 thru 23=7) (22=8)
   (24 thru 26=9) (46=10) (27, 47=11) (32=12) (28, 31=13)
   (29, 30=14) (34=15) (33=16) (63, 64=17) (62=18) (65 thru 68=18)
   (42 thru 44=19) (57 thru 59=20) (56=21) (60, 61=22) 
   (35 thru 41=23) (45=23) (48 thru 55=24) (69=25) into core25.

var lab core25 reduced core 25 activity codes.
val lab core25 
   1  sleep
   2  eat or drink
   3  personal care
   4  paid work
   5  education
   6  "food preparation/clean-up"
   7  cleaning and housework
   8  home and car maintain
   9  shopping or service use
  10  gardening
  11  pet care
  12  care of older people
  13  physical or supervisory child care
  14  interactive child care
  15  religious activity
  16  volunteering
  17  commuting and education travel
  18  other travel
  19  sport or exercise
  20  TV, radio, music
  21  read
  22  computer games, internet use
  23  out of home entertainment
  24  other leisure
  25  missing.
freq core25.

temp.
select if main<10.
cro core25 by main.

temp.
select if main>9 and main<20.
cro core25 by main.

temp.
select if main>19 and main<30.
cro core25 by main.

temp.
select if main>29 and main<40.
cro core25 by main.

temp.
select if main>39 and main<50.
cro core25 by main.

temp.
select if main>49 and main<60.
cro core25 by main.

temp.
select if main>59.
cro core25 by main.

save outfile='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\at1992tusx-main.sav'
   /keep country survey swave msamp hldid persid id day cday month year 
    diary nowght time clockst start end epnum main core25 sec av inout eloc 
    ict mtrav alone child sppart oad animal parntid1 parntid2 partid hhtype 
    hhldsize nchild agekidx agekid2 income ownhome urban computer vehicle 
    sex age famstat singpar relrefp civstat cohab citizen empstat emp unemp 
    student retired empsp workhrs isco1 sector edcat rushed health carer 
    disab ocombwt propwt.

var lab incorig original household income - monthly housing costs in this case.
val lab incorig
   99999 missing.
freq incorig.

*empinclm missing in this survey.

val lab occupo
   1	self-employed
   2	family worker
   3	white collar worker
   4	civil servant
   5	skilled blue collar worker
   6	other blue collar worker
   7	apprentice white collar worker
   8	apprentice blue collar worker
   9	unknown.
freq occupo.

val lab educa
   1 elementary school
   3 neduyn vocational
   4 higher general
   5 higher vocational
   6 university
   7 child aged 10-14.
freq educa.

Aggregate 
   outfile='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\at1992tusx-survey.sav'
   /break country survey swave msamp hldid persid 
   /incorig=MAX(incorig) /empinclm=MAX(empinclm) 
   /occupo=MAX(occupo) /educa=MAX(educa).

get file='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\at1992tusx-main.sav'.

get file='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\at1992tusx-survey.sav'.

*match files file='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\at1992tusx-survey.sav'
      files='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\Region-Race-at1992.sav'
     /by country survey swave msamp hldid persid.
execute.

compute ethnic=-9.
compute region=-9.
var lab ethnic ethnicity.
var lab region 'Bundesland / Nuts 2 level regions'.
val lab ethnic region
   -9 not included in survey.
freq region ethnic.

save outfile='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\at1992tusx-main.sav'
   /keep country survey swave msamp hldid persid incorig region empinclm occupo educa ethnic
   /compressed.

new file.
get file='C:\Users\Kimberly Fisher\Desktop\Kimberly\time\mtus\mtus data\countries\Austria\1992\at1992tusx-main.sav'.