******************************* Finland 2009 background variables *********************************** ***************************************************************************************************** ***************************************************************************************************** keep KohdeNro Jasnro sp ika tutkk pkvp pvknro impu kirjapvm WCAL_pvk WCAL_PVK_n koko KOT4 T1 tytyy T10a /// T16a T6 T7 T11M E6 O1 Vastaaja sivsa perhev ELVAIHE1 toiminta ISCO3KA sose tyoaika sivis ylsiv kaste /// suuralue kunry asalue maakunta koko svatv ksvatv ksvatvh hdesi nuorlaps vanhlaps lapslkm pielaps tutkk /// pkvp pvknro impu WCAL_pvk WCAL_PVK_n *** survey vars*** * country * gen country = "FI" * survey* gen survey= 2009 *swave* gen swave=0 * msamp* gen msamp=0 *id* rename pvknro id *day* rename pkvp day *month* rename tutkk month *year* gen year = 2009 if month >5 replace year= 2010 if month <=5 *** individual *** *hldid* rename KohdeNro hldid *persid* rename Jasnro persid *sex* rename sp sex *age* rename ika age *propwt* rename WCAL_PVK_n propwt *civstat* gen civstat=. replace civstat = 1 if ELVAIHE1==4 | ELVAIHE1==5 | ELVAIHE1==6 | ELVAIHE1==7 replace civstat=2 if civstat==. *empstat* gen empstat = 1 if tyoaika ==1 replace empstat = 2 if tyoaika ==2 replace empstat = 3 if tyoaika ==. & toiminta==1 replace empstat = 4 if toiminta !=1 *workhrs* rename T10a workhrs recode workhrs (9999 = -8) recode workhrs (.=-7) *empinclm* rename svatv empinclm recode empinclm (.=-8) *edcat* gen edcat=. replace edcat = 1 if ylsiv==4 | ylsiv==3 | ylsiv==2 replace edcat = 2 if ylsiv==1 | kaste == 3 replace edcat = 3 if kaste== 5 | kaste==6 | kaste==7 | kaste==8 replace edcat = -8 if edcat==. *** hhld*** *hhldsize* rename koko hhldsize *nchild* rename lapslkm nchild *agekidx* rename nuorlaps agekidx recode agekidx (0 1 2 3 4 =1) (5 6 7 8 9 10 11 12 =2) (13 14 15 16 17 =3) replace agekidx =4 if agekidx >=18 *income* gen income_help = ksvatv gen income = . replace income = 1 if income_help <=33548.19 replace income = 2 if income_help >33548.19 & income_help <=76026.58 replace income = 3 if income_help >76026.58 *urban* gen urban = asalue recode urban (2 3 =2) recode urban (.=-8) *** time use variables*** *merge in from episodic file* merge 1:1 hldid persid id using FI2009_episodic_1line.dta, keepusing(sleep eatdrink selfcare paidwork educatn foodprep /// cleanetc maintain shopserv garden petcare eldcare pkidcare ikidcare religion volorgwk commute /// travel sportex TVradio read compint goout leisure missing restrnt eatatwrk compgame caretrav /// SPPART main1 main2 main3 main4 main5 main6 main7 main8 main9 main10 main11 main12 main13 /// main14 main15 main16 main17 main18 main19 main20 main21 main22 main23 main24 main25 main26 /// main27 main28 main29 main30 main31 main32 main33 main34 main35 main36 /// main37 main38 main39 main40 main41 main42 main43 main44 main45 main46 /// main47 main48 main49 main50 main51 main52 main53 main54 main55 main56 /// main57 main58 main59 main60 main61 main62 main63 main64 main65 main66 /// main67 main68 main69 badcase) *** rename SPPART sppart merge 1:1 hldid persid id using FI2009_episodic_1line.dta, keepusing(badcase) rename propwt weight * adding MTUS weights* egen count=count(badcase) egen countp_bis=count(badcase) if badcase==0 egen countp=min(countp_bis) sort sex age day egen daywt = group(sex age day) if badcase==0 egen ngroupsd=max(daywt) if badcase==0 by sex age day: egen daycount2=count(daywt) if badcase==0 sort sex age egen weekwt=group(sex age) if badcase==0 by sex age: egen wkcount2=count(weekwt) if badcase==0 gen propwt=((wkcount2/7)/daycount2) if badcase==0 replace propwt=0 if badcase!=0 replace propwt=propwt*(count/countp) egen mean_weight=mean(propwt) replace propwt=propwt/mean_weight *** keep country survey msamp hldid persid id day month year hhldsize nchild agekidx income urban /// sex age civstat empstat workhrs empinclm edcat sleep eatdrink selfcare paidwork educatn foodprep /// cleanetc maintain shopserv garden petcare eldcare pkidcare ikidcare religion volorgwk commute /// travel sportex TVradio read compint goout leisure missing restrnt eatatwrk compgame caretrav /// sppart propwt main1 main2 main3 main4 main5 main6 main7 main8 main9 main10 main11 main12 main13 /// main14 main15 main16 main17 main18 main19 main20 main21 main22 main23 main24 main25 main26 /// main27 main28 main29 main30 main31 main32 main33 main34 main35 main36 /// main37 main38 main39 main40 main41 main42 main43 main44 main45 main46 /// main47 main48 main49 main50 main51 main52 main53 main54 main55 main56 /// main57 main58 main59 main60 main61 main62 main63 main64 main65 main66 /// main67 main68 main69 order country survey msamp hldid persid id day month year hhldsize nchild agekidx income urban /// sex age civstat empstat workhrs empinclm edcat sleep eatdrink selfcare paidwork educatn foodprep /// cleanetc maintain shopserv garden petcare eldcare pkidcare ikidcare religion volorgwk commute /// travel sportex TVradio read compint goout leisure missing restrnt eatatwrk compgame caretrav /// sppart main1 main2 main3 main4 main5 main6 main7 main8 main9 main10 main11 main12 main13 /// main14 main15 main16 main17 main18 main19 main20 main21 main22 main23 main24 main25 main26 /// main27 main28 main29 main30 main31 main32 main33 main34 main35 main36 /// main37 main38 main39 main40 main41 main42 main43 main44 main45 main46 /// main47 main48 main49 main50 main51 main52 main53 main54 main55 main56 /// main57 main58 main59 main60 main61 main62 main63 main64 main65 main66 /// main67 main68 main69 propwt * save as HSF*