***************** Finland 2009-2010 conversion ********************************* ******************************************************************************** *episodic* * many vars are not needed --> drop* keep KohdeNro Jasnro sp ika tutkk pkvp pvknro impu kirjapvm WCAL_pvk WCAL_PVK_n ptoim1- ptoim144 stoim1- stoim144 /// paik1- paik144 ptoim_TK1- ptoim_TK144 stoim_TK1- stoim_TK144 yolo1 -yolo144 * data comes in wide format -> reshaping * egen HHperday = concat( KohdeNro Jasnro pvknro) reshape long ptoim stoim paik ptoim_TK stoim_TK yolo , i(HHperday) j(slot) drop HHperday * survey* gen country= "FI" gen survey=2009 gen swave=0 gen msamp=0 * identifiers* rename KohdeNro hldid rename Jasnro persid rename pvknro diary * cleaning * order hldid persid diary slot sort hldid persid diary slot tab ptoim, mis destring ptoim, replace gen main=. destring paik, replace replace main= 1 if ptoim ==999 & (paik[_n-1]!=11 | paik[_n-2]!=11) & paik ==11 replace main= 1 if ptoim ==999 & (paik[_n-1]!=12 | paik[_n-2]!=12) & paik ==12 replace main= 2 if ptoim ==999 & (paik==11 | paik==12) & (ptoim[_n-1]==31 | ptoim[_n-1]==39) & slot>=110 replace main=2 if main[_n-1]==2 & ptoim==999 & (paik==11 | paik==12) replace main=2 if ptoim ==999 & (paik==11 | paik==12) & (ptoim[_n+1]==31 | ptoim[_n+1]==39) & slot<=25 replace main=2 if main[_n+1]==2 & ptoim==999 & (paik==11 | paik==12) & slot<=24 tab paik if ptoim==999 replace main=50 if ptoim==999 & paik ==14 & (ptoim[_n-3]!=999 | ptoim[_n+3]!=999) replace main=24 if ptoim==999 & paik ==16 & (ptoim[_n-3]!=999 | ptoim[_n+3]!=999) replace main=68 if ptoim==999 & paik ==24 destring stoim, replace replace ptoim=stoim if ptoim==999 & stoim !=. bys HHperday: egen mis_main = count(ptoim) if ptoim ==999 & main==. tab mis_main * defining seq with >7 episodes or >90 mins missing as badcase* gen badcase = . replace badcase= 1 if mis_main >9 & mis_main!=. * missing >7 episodes - at later stage when stack as episodes (after activities recode)* * save as interim * * CONVERSION * *AV recoding* gen av=. replace av = 1 if (paik != 11 | paik!=12) & (ptoim==111 | ptoim==112 | ptoim==129) replace av = 2 if (paik ==1 | paik==12) & (ptoim==112 | ptoim==112 | ptoim==129) *replace av = 3 if * replace av = 4 if ptoim==211 | ptoim==219 replace av = 5 if ptoim==910 | ptoim==921 replace av = 6 if ptoim==311 | ptoim==312 | ptoim==313 | ptoim==314 | ptoim==315 | ptoim==319 replace av = 7 if ptoim==300 | ptoim==321 | ptoim==322 | ptoim==323 | ptoim==324 | ptoim==329 | ptoim==331 /// | ptoim==332 | ptoim==333 | ptoim==339 | ptoim==371 replace av = 8 if ptoim==342 | ptoim==351 | ptoim==353 | ptoim==354 | ptoim==359 | ptoim==391 /// | ptoim==421 | ptoim==422 | ptoim==423 | ptoim==424 | ptoim==425 | ptoim==426 | ptoim==429 | ptoim==995 replace av=8 if ptoim==352 replace av = 9 if ptoim==341 | ptoim==349 replace av =10 if ptoim==361 | ptoim==362 | ptoim==363 | ptoim==369 replace av =11 if ptoim==318 | ptoim==382 | ptoim==383 | ptoim==384 | ptoim==385 | ptoim==386 | ptoim==389 replace av=11 if ptoim==381 replace av =12 if ptoim==900 | ptoim==901 | ptoim==931 | ptoim==936 | ptoim==938 | ptoim==939 replace av=13 if ptoim==31 | ptoim==32 | ptoim==39 replace av =14 if ptoim==364 replace av=15 if ptoim==21 | ptoim==22 | ptoim==29 | ptoim==121 replace av=16 if ptoim==11 | ptoim==12 | ptoim==13 replace av =17 if ptoim==922 | ptoim==941 | ptoim==942 | ptoim==943 | ptoim==951 | ptoim==952 /// | ptoim==961 | ptoim==971 | ptoim==991 | ptoim==992 replace av=18 if ptoim==523 | ptoim==524 | ptoim==529 replace av=19 if ptoim==612 | ptoim==613 | ptoim==614 | ptoim==615 | ptoim==616 | ptoim==617 /// | ptoim==619 | ptoim==621 | ptoim==622 | ptoim==629 | ptoim==631 replace av=20 if ptoim==525 replace av =21 if ptoim==343 | ptoim==611 | ptoim==623 replace av=22 if ptoim==432 replace av=23 if ptoim== 411 | ptoim==412 | ptoim==419 | ptoim==431 | ptoim==439 replace av=24 if ptoim==521 | ptoim==522 replace av=25 if ptoim==514 | ptoim==735 | ptoim==732 | ptoim==733 | ptoim==739 *replace av=26 if * replace av=27 if paik== 15 & ptoim==519 replace av=28 if paik== 15 & ptoim==515 replace av=29 if paik ==14 & (ptoim==512 | ptoim==513 | ptoim==519) replace av=30 if ptoim==831 | ptoim==839 replace av=31 if ptoim==821 | ptoim==822 replace av=32 if ptoim==832 replace av=33 if ptoim==200 | ptoim==212 | ptoim==221 replace av=34 if ptoim==814 replace av=35 if ptoim==811 | ptoim==812 | ptoim==813 | ptoim==819 replace av=36 if ptoim==531 | ptoim==532 | ptoim==533 | ptoim==539 replace av=37 if ptoim==511 | ptoim==519 | ptoim==516 replace av=38 if ptoim==512 & (paik==11 | paik==12) replace av=39 if ptoim== 334 replace av=40 if ptoim==711 | ptoim==712 | ptoim==713 | ptoim==714 | ptoim==715 | ptoim==719 /// | ptoim==721 | ptoim==722 | ptoim==723 | ptoim==724 | ptoim==729 | ptoim==731 | ptoim==734 /// | ptoim==998 *missing & leftovers* replace av= 29 if ptoim==513 & paik==10 replace av= 29 if ptoim==513 & (paik==15 | paik==17 | paik==19) replace av==41 if ptoim==999 *MAIN recoding* gen main=. *main 1- imputed* replace main=2 if ptoim==11 | ptoim==12 | ptoim==13 *replace main=3 - imputed* replace main=4 if ptoim==31 | ptoim==32 | ptoim==39 replace main=5 if paik==13 & (ptoim==21 | ptoim==22 | ptoim==29 | ptoim==121) replace main=6 if paik!=13 & (ptoim==21 | ptoim==22 | ptoim==29) replace main=7 if (paik!=11 | paik!=12) & (ptoim==111 | ptoim==129) replace main=8 if (paik==11 | paik==12) & (ptoim==111 | ptoim==129) *replace main=9 if* *replace main=10 if* replace main=11 if (paik==21 | paik==22 | paik==23 | paik==24 | paik==24 | paik==25 /// | paik==29 | paik==31 | paik==32 | paik==33 | paik==34 | paik==35 | paik==36 | paik==39 | paik==40) /// & (ptoim==111 | ptoim==129) replace main=12 if ptoim==112 replace main=13 if ptoim==129 & paik==13 *replace main=14 if * replace main=15 if ptoim==211 | ptoim==219 replace main=16 if ptoim==212 replace main=17 if ptoim==200 | ptoim==221 replace main=18 if ptoim==311 | ptoim==312 | ptoim==313 | ptoim==315 | ptoim==319 replace main=19 if ptoim==314 replace main=20 if ptoim==321 | ptoim==322 replace main=21 if ptoim==331 | ptoim==332 | ptoim==333 | ptoim==339 replace main=22 if ptoim==323 | ptoim==329 | ptoim==351 | ptoim==352 | ptoim==353 | ptoim==354 /// | ptoim == 359 | ptoim==371 replace main=23 if ptoim==300 | ptoim==324 replace main=24 if ptoim==361 | ptoim==362 | ptoim==369 replace main=25 if ptoim==364 replace main=26 if ptoim==363 replace main=27 if ptoim==342 | ptoim==349 replace main=28 if ptoim==381 replace main=29 if ptoim==382 replace main=30 if ptoim==383 | ptoim==386 replace main=31 if ptoim==384 | ptoim==385 | ptoim==389 replace main=32 if ptoim==391 replace main=33 if ptoim==411 | ptoim==412 | ptoim==419 | ptoim==421 | ptoim==422 /// | ptoim==423 | ptoim==424 | ptoim==425 | ptoim==426 | ptoim==429 | ptoim==431 | ptoim ==439 /// | ptoim==995 replace main=34 if ptoim==432 replace main=35 if ptoim==533 | ptoim==733 replace main=36 if ptoim==525 replace main=37 if ptoim==521 | ptoim==522 replace main=38 if ptoim==513 | ptoim==524 | ptoim==529 | ptoim==523 replace main=39 if paik == 15 & (ptoim==21 | ptoim==22 | ptoim==29 | ptoim==515) replace main=40 if ptoim==514 | ptoim==735 *replace main=41 if * replace main=42 if ptoim==612 | ptoim==614 | ptoim==615 | ptoim==616 | ptoim==617 | ptoim==619 replace main=43 if ptoim==611 replace main=44 if ptoim==613 replace main=45 if ptoim==629 | ptoim==631 replace main=46 if ptoim==341 | ptoim==621 | ptoim==622 replace main=47 if ptoim==343 | ptoim==623 replace main=48 if ptoim==512 | ptoim==513 replace main=49 if ptoim==516 replace main=50 if (paik== 11 | paik==12 | paik==14) & ptoim==511 | ptoim==519 | ptoim==732 | ptoim==739 replace main=50 if ptoim==511 & (paik==11 | paik==10) replace main=51 if (paik== 11 | paik==12 | paik==14) & ptoim==731 | ptoim==998 replace main=51 if ptoim==731 replace main=52 if ptoim==711 | ptoim==712 | ptoim==713 replace main=53 if ptoim==715 replace main=54 if ptoim==334 | ptoim==714 | ptoim==719 replace main=55 if ptoim==531 | ptoim==532 | ptoim==539 replace main=56 if ptoim==811 | ptoim==812 | ptoim==813 | ptoim==814 | ptoim==819 replace main=57 if ptoim==832 replace main=58 if ptoim==831 | ptoim==839 replace main=59 if ptoim==821 | ptoim==822 replace main=60 if ptoim==734 replace main=61 if ptoim==721 | ptoim==722 | ptoim==723 | ptoim==724 | ptoim==729 replace main=62 if ptoim==999 & paik==991 replace main=63 if ptoim==910 replace main=64 if ptoim==921 | ptoim==922 replace main=65 if ptoim==941 | ptoim==942 | ptoim==943 replace main=66 if ptoim==938 | ptoim==939 replace main=67 if ptoim==901 | ptoim==931 | ptoim==936 replace main=68 if ptoim==900 | ptoim==951 | ptoim==952 | ptoim==961 | ptoim==971 | ptoim==991 | ptoim==992 replace main=69 if main==. & ptoim==999 replace main=2 if ptoim==11 | ptoim==12 | ptoim==13 * missing & leftovers* replace main= 6 if ptoim==121 & paik!=13 & main==. replace main= 39 if ptoim==511 & paik==15 replace main= 50 if ptoim==511 & (paik==17 | paik==19) replace main= 50 if ptoim==511 & main==. *sec* gen sec=. replace sec=2 if stoim==11 | stoim==12 | stoim==13 replace sec=4 if stoim==31 | stoim==32 | stoim==39 replace sec=5 if paik==13 & (stoim==21 | stoim==22 | stoim==29 | stoim==121) replace sec=6 if paik!=13 & (stoim==21 | stoim==22 | stoim==29) replace sec=7 if (paik!=11 | paik!=12) & (stoim==111 | stoim==129) replace sec=8 if (paik==11 | paik==12) & (stoim==111 | stoim==129) *replace sec=9 if* *replace sec=10 if* replace sec=11 if (paik==21 | paik==22 | paik==23 | paik==24 | paik==24 | paik==25 /// | paik==29 | paik==31 | paik==32 | paik==33 | paik==34 | paik==35 | paik==36 | paik==39 | paik==40) /// & (stoim==111 | stoim==129) replace sec=12 if stoim==112 replace sec=13 if stoim==129 & paik==13 *replace sec=14 if * replace sec=15 if stoim==211 | stoim==219 replace sec=16 if stoim==212 replace sec=17 if stoim==200 | stoim==221 replace sec=18 if stoim==311 | stoim==312 | stoim==313 | stoim==315 | stoim==319 replace sec=19 if stoim==314 replace sec=20 if stoim==321 | stoim==322 replace sec=21 if stoim==331 | stoim==332 | stoim==333 | stoim==339 replace sec=22 if stoim==323 | stoim==329 | stoim==351 | stoim==352 | stoim==353 | stoim==354 /// | stoim == 359 | stoim==371 replace sec=23 if stoim==300 | stoim==324 replace sec=24 if stoim==361 | stoim==362 | stoim==369 replace sec=25 if stoim==364 replace sec=26 if stoim==363 replace sec=27 if stoim==342 | stoim==349 replace sec=28 if stoim==381 replace sec=29 if stoim==382 replace sec=30 if stoim==383 | stoim==386 replace sec=31 if stoim==384 | stoim==385 | stoim==389 replace sec=32 if stoim==391 replace sec=33 if stoim==411 | stoim==412 | stoim==419 | stoim==421 | stoim==422 /// | stoim==423 | stoim==424 | stoim==425 | stoim==426 | stoim==429 | stoim==431 | stoim ==439 /// | stoim==995 replace sec=34 if stoim==432 replace sec=35 if stoim==533 | stoim==733 replace sec=36 if stoim==525 replace sec=37 if stoim==521 | stoim==522 replace sec=38 if stoim==513 | stoim==524 | stoim==529 | stoim==523 replace sec=39 if paik == 15 & (stoim==21 | stoim==22 | stoim==29 | stoim==515) replace sec=40 if stoim==514 | stoim==735 *replace sec=41 if * replace sec=42 if stoim==612 | stoim==614 | stoim==615 | stoim==616 | stoim==617 | stoim==619 replace sec=43 if stoim==611 replace sec=44 if stoim==613 replace sec=45 if stoim==629 | stoim==631 replace sec=46 if stoim==341 | stoim==621 | stoim==622 replace sec=47 if stoim==343 | stoim==623 replace sec=48 if stoim==512 | stoim==513 replace sec=49 if stoim==516 replace sec=50 if (paik== 11 | paik==12 | paik==14) & (stoim==511 | stoim==519 | stoim==732 | stoim==739) replace sec=50 if stoim==511 & (paik==11 | paik==10) replace sec=51 if (paik== 11 | paik==12 | paik==14) & (stoim==731 | stoim==998 ) replace sec=51 if stoim==731 replace sec=52 if stoim==711 | stoim==712 | stoim==713 replace sec=53 if stoim==715 replace sec=54 if stoim==334 | stoim==714 | stoim==719 replace sec=55 if stoim==531 | stoim==532 | stoim==539 replace sec=56 if stoim==811 | stoim==812 | stoim==813 | stoim==814 | stoim==819 replace sec=57 if stoim==832 replace sec=58 if stoim==831 | stoim==839 replace sec=59 if stoim==821 | stoim==822 replace sec=60 if stoim==734 replace sec=61 if stoim==721 | stoim==722 | stoim==723 | stoim==724 | stoim==729 replace sec=62 if stoim==999 & paik==991 replace sec=63 if stoim==910 replace sec=64 if stoim==921 | stoim==922 replace sec=65 if stoim==941 | stoim==942 | stoim==943 replace sec=66 if stoim==938 | stoim==939 replace sec=67 if stoim==901 | stoim==931 | stoim==936 replace sec=68 if stoim==900 | stoim==951 | stoim==952 | stoim==961 | stoim==971 | stoim==991 | stoim==992 replace sec=69 if sec==. & stoim==999 * missing & leftovers* replace sec= 6 if stoim==121 & paik!=13 replace sec= 39 if stoim==511 & paik==15 replace sec= 50 if stoim==511 & (paik==17 | paik==19) replace sec= 50 if stoim==511 & sec==. replace sec = 49 if stoim==519 & sec==. replace sec= 50 if (stoim==732 | stoim==739 )& sec==. replace sec= 51 if stoim==998 & sec==. * godz* gen str godz= "." replace godz = "04.00-04.10" if slot==1 replace godz = "04.10-04.20" if slot==2 replace godz = "04.20-04.30" if slot==3 replace godz = "04.30-04.40" if slot==4 replace godz = "04.40-04.50" if slot==5 replace godz = "04.50-05.00" if slot==6 replace godz = "05.00-05.10" if slot==7 replace godz = "05.10-05.20" if slot==8 replace godz = "05.20-05.30" if slot==9 replace godz = "05.30-05.40" if slot==10 replace godz = "05.40-05.50" if slot==11 replace godz = "05.50-06.00" if slot==12 replace godz = "06.00-06.10" if slot==13 replace godz = "06.10-06.20" if slot==14 replace godz = "06.20-06.30" if slot==15 replace godz = "06.30-06.40" if slot==16 replace godz = "06.40-06.50" if slot==17 replace godz = "06.50-07.00" if slot==18 replace godz = "07.00-07.10" if slot==19 replace godz = "07.10-07.20" if slot==20 replace godz = "07.20-07.30" if slot==21 replace godz = "07.30-07.40" if slot==22 replace godz = "07.40-07.50" if slot==23 replace godz = "07.50-08.00" if slot==24 replace godz = "08.00-08.10" if slot==25 replace godz = "08.10-08.20" if slot==26 replace godz = "08.20-08.30" if slot==27 replace godz = "08.30-08.40" if slot==28 replace godz = "08.40-08.50" if slot==29 replace godz = "08.50-09.00" if slot==30 replace godz = "09.00-09.10" if slot==31 replace godz = "09.10-09.20" if slot==32 replace godz = "09.20-09.30" if slot==33 replace godz = "09.30-09.40" if slot==34 replace godz = "09.40-09.50" if slot==35 replace godz = "09.50-10.00" if slot==36 replace godz = "10.00-10.10" if slot==37 replace godz = "10.10-10.20" if slot==38 replace godz = "10.20-10.30" if slot==39 replace godz = "10.30-10.40" if slot==40 replace godz = "10.40-10.50" if slot==41 replace godz = "10.50-11.00" if slot==42 replace godz = "11.00-11.10" if slot==43 replace godz = "11.10-11.20" if slot==44 replace godz = "11.20-11.30" if slot==45 replace godz = "11.30-11.40" if slot==46 replace godz = "11.40-11.50" if slot==47 replace godz = "11.50-12.00" if slot==48 replace godz = "12.00-12.10" if slot==49 replace godz = "12.10-12.20" if slot==50 replace godz = "12.20-12.30" if slot==51 replace godz = "12.30-12.40" if slot==52 replace godz = "12.40-12.50" if slot==53 replace godz = "12.50-13.00" if slot==54 replace godz = "13.00-13.10" if slot==55 replace godz = "13.10-13.20" if slot==56 replace godz = "13.20-13.30" if slot==57 replace godz = "13.30-13.40" if slot==58 replace godz = "13.40-13.50" if slot==59 replace godz = "13.50-14.00" if slot==60 replace godz = "14.00-14.10" if slot==61 replace godz = "14.10-14.20" if slot==62 replace godz = "14.20-14.30" if slot==63 replace godz = "14.30-14.40" if slot==64 replace godz = "14.40-14.50" if slot==65 replace godz = "14.50-15.00" if slot==66 replace godz = "15.00-15.10" if slot==67 replace godz = "15.10-15.20" if slot==68 replace godz = "15.20-15.30" if slot==69 replace godz = "15.30-15.40" if slot==70 replace godz = "15.40-15.50" if slot==71 replace godz = "15.50-16.00" if slot==72 replace godz = "16.00-16.10" if slot==73 replace godz = "16.10-16.20" if slot==74 replace godz = "16.20-16.30" if slot==75 replace godz = "16.30-16.40" if slot==76 replace godz = "16.40-16.50" if slot==77 replace godz = "16.50-17.00" if slot==78 replace godz = "17.00-17.10" if slot==79 replace godz = "17.10-17.20" if slot==80 replace godz = "17.20-17.30" if slot==81 replace godz = "17.30-17.40" if slot==82 replace godz = "17.40-17.50" if slot==83 replace godz = "17.50-18.00" if slot==84 replace godz = "18.00-18.10" if slot==85 replace godz = "18.10-18.20" if slot==86 replace godz = "18.20-18.30" if slot==87 replace godz = "18.30-18.40" if slot==88 replace godz = "18.40-18.50" if slot==89 replace godz = "18.50-19.00" if slot==90 replace godz = "19.00-19.10" if slot==91 replace godz = "19.10-19.20" if slot==92 replace godz = "19.20-19.30" if slot==93 replace godz = "19.30-19.40" if slot==94 replace godz = "19.40-19.50" if slot==95 replace godz = "19.50-20.00" if slot==96 replace godz = "20.00-20.10" if slot==97 replace godz = "20.10-20.20" if slot==98 replace godz = "20.20-20.30" if slot==99 replace godz = "20.30-20.40" if slot==100 replace godz = "20.40-20.50" if slot==101 replace godz = "20.50-21.00" if slot==102 replace godz = "21.00-21.10" if slot==103 replace godz = "21.10-21.20" if slot==104 replace godz = "21.20-21.30" if slot==105 replace godz = "21.30-21.40" if slot==106 replace godz = "21.40-21.50" if slot==107 replace godz = "21.50-22.00" if slot==108 replace godz = "22.00-22.10" if slot==109 replace godz = "22.10-22.20" if slot==110 replace godz = "22.20-22.30" if slot==111 replace godz = "22.30-22.40" if slot==112 replace godz = "22.40-22.50" if slot==113 replace godz = "22.50-23.00" if slot==114 replace godz = "23.00-23.10" if slot==115 replace godz = "23.10-23.20" if slot==116 replace godz = "23.20-23.30" if slot==117 replace godz = "23.30-23.40" if slot==118 replace godz = "23.40-23.50" if slot==119 replace godz = "23.50-00.00" if slot==120 replace godz = "00.00-00.10" if slot==121 replace godz = "00.10-00.20" if slot==122 replace godz = "00.20-00.30" if slot==123 replace godz = "00.30-00.40" if slot==124 replace godz = "00.40-00.50" if slot==125 replace godz = "00.50-01.00" if slot==126 replace godz = "01.00-01.10" if slot==127 replace godz = "01.10-01.20" if slot==128 replace godz = "01.20-01.30" if slot==129 replace godz = "01.30-01.40" if slot==130 replace godz = "01.40-01.50" if slot==131 replace godz = "01.50-02.00" if slot==132 replace godz = "02.00-02.10" if slot==133 replace godz = "02.10-02.20" if slot==134 replace godz = "02.20-02.30" if slot==135 replace godz = "02.30-02.40" if slot==136 replace godz = "02.40-02.50" if slot==137 replace godz = "02.50-03.00" if slot==138 replace godz = "03.00-03.10" if slot==139 replace godz = "03.10-03.20" if slot==140 replace godz = "03.20-03.30" if slot==141 replace godz = "03.30-03.40" if slot==142 replace godz = "03.40-03.50" if slot==143 replace godz = "03.50-04.00" if slot==144 *inout* gen inout=. replace inout= 1 if paik==11 | paik==12 | paik==14 | paik==13 | paik==16 | paik==15 | ptoim==732 /// | ptoim==532 replace inout=2 if paik==21 | paik==22 | paik==23 | ptoim==322 | ptoim==385 | ptoim==533 /// | ptoim==611 | ptoim==612 | ptoim==613 | ptoim==341 | ptoim==621 | ptoim==622 | ptoim==733 /// | ptoim==343 | ptoim==623 replace inout=3 if paik==24 | paik==25 | paik==29 | paik==31 | paik==32 | paik==33 | paik==34 /// | paik==35 | paik==36 | paik==39 | paik==40 replace inout= -8 if paik==0 | paik==10 | paik==17 | paik==19 *eloc* gen eloc=. replace eloc=1 if paik==11 | paik==12 replace eloc=2 if paik==14 replace eloc=3 if paik==13 & (ptoim==111 | ptoim==129) replace eloc=4 if paik==13 & (ptoim==211 | ptoim==219) replace eloc=5 if paik==16 replace eloc=6 if paik==15 replace eloc=7 if ptoim==432 & paik==19 replace eloc=8 if paik==21 | paik==22 | paik==23 | paik==24 | paik==25 | paik==29 | paik==31 | paik==32 | paik==33 | paik==34 /// | paik==35 | paik==36 | paik==39 | paik==40 replace eloc=9 if eloc==. & (paik==17 | paik==19 | paik==10 | paik==0) replace eloc = 3 if paik==13 & (ptoim==21 | ptoim==112 |ptoim==121 | ptoim==519) replace eloc = 4 if paik==13 & (ptoim==212 | ptoim==221) replace eloc=-8 if eloc==. * mtrav* gen mtrav=. replace mtrav=1 if paik==23 | paik==24 | paik==25 | paik==29 | paik==31 replace mtrav=2 if paik==32 | paik==33 | paik==34 | paik==35 | paik==36 | paik==39 replace mtrav=3 if paik==21 | ptoim==343 | ptoim==611 | ptoim==623 replace mtrav=4 if paik==22 replace mtrav=5 if paik==40 replace mtrav=-7 if paik== 11 | paik==12 | paik==13 | paik==14 | paik==15 | paik== 17 /// | paik==19 | paik==16 replace mtrav=-8 if paik==0 | paik==10 *ICT* gen ict=. replace ict= 1 if ptoim_TK==1 | stoim_TK==1 replace ict=0 if ptoim_TK==0 & stoim_TK==0 replace ict=0 if ict==. & ptoim_TK==0 replace ict=0 if ict==. & stoim_TK==0 replace ict=0 if ict==. *alone* gen alone=. replace alone= 1 if yolo==1 replace alone= 0 if yolo !=1 *child* gen child=. replace child= 1 if yolo==4 | yolo==7 | yolo==8 | yolo==10 | yolo==15 | yolo==17 | yolo==18 | yolo==20 /// | yolo==23 | yolo==24 | yolo==26 |yolo==27 | yolo==28 | yolo==29 | yolo==30 replace child=0 if child==. *sppart* gen sppart=. replace sppart = 1 if yolo==2 | yolo==3 | yolo==4 | yolo==5 | yolo==6 | yolo==7 | yolo==8 /// | yolo==9 | yolo==11 | yolo==12 | yolo==13 | yolo==14 | yolo==15 | yolo==16 | yolo==17 | yolo==18 replace sppart=0 if sppart==. *oad* gen oad = . replace oad=1 if yolo==3 | yolo==5 | yolo==6 | yolo==7 | yolo==8 | yolo==9 | yolo==10 /// | yolo==11 | yolo==12 | yolo==13 | yolo==14 | yolo==15 | yolo==16 | yolo==17 | yolo==18 | yolo==19 /// | yolo==20 | yolo==21 | yolo==22 | yolo==23 | yolo==24 | yolo==25 | yolo==26 | yolo==28 | yolo==29 /// | yolo==30 | yolo==31 | yolo==32 | yolo==33 replace oad=0 if oad==. *into episodic* sort HHperday slot tsset HHperday slot gen beginn=1 if ptoim != ptoim[_n-1] replace beginn=1 if HHperday != HHperday[_n-1] gen end=1 if ptoim != ptoim[_n+1] replace end=1 if HHperday != HHperday[_n+1] drop if beginn==. & end==. replace beginn= slot if beginn==1 replace end= slot if end==1 replace end=end[_n+1] if end==. drop if beginn==. *epnum* bysort HHperday: gen epnum=_n *time* gen duration= ((end- beginn)+1)*10 rename duration time drop end drop beginn *clockst* split godz, p(-) rename godz1 clockst drop godz2 *start & end* split clockst, p(.) * start end * replace clockst1 ="24" if clockst1 =="00" replace clockst1 ="25" if clockst1 =="01" replace clockst1 ="26" if clockst1 =="02" replace clockst1 ="27" if clockst1 =="03" gen tminutes1 = 60 * real(clockst1)- 240 /*replace tminutes1 = tminutes1- 240*/ gen tminutes2 = real(clockst2) replace tminutes1 = tminutes1 + tminutes2 replace tminutes2 = tminutes1 + time replace tminutes1 = tminutes2[_n-1] if clockst1=="24" replace tminutes2 = tminutes1+time if clockst1=="24" replace tminutes1 = tminutes2[_n-1] if clockst1=="24" & clockst1[_n-1]=="24" replace tminutes2 = tminutes1+time if clockst1=="24" replace tminutes1 = tminutes2[_n-1] if clockst1=="24" & clockst1[_n-2]=="24" replace tminutes2 = tminutes1+time if clockst1=="24" rename tminutes1 start rename tminutes2 end destring clockst, replace ******** * check if sums up* bys HHperday: egen sum_time1 = sum(time) if diary==1 bys HHperday: egen sum_time2 = sum(time) if diary==2 drop sum_time1 drop sum_time2 *badcase* drop badcase gen badcase=. *=4* bys HHperday: egen max_epi = max(epnum) if diary==1 bys HHperday: egen max_epi2 = max(epnum) if diary==2 replace badcase=4 if max_epi <7 replace badcase=4 if max_epi2 <7 *=3* bys HHperday: egen total_mis= sum(time) if diary==1 & main ==69 bys HHperday: egen total_mis2= sum(time) if diary==2 & main ==69 replace badcase =3 if total_mis >90 & total_mis !=. & badcase ==. replace badcase =3 if total_mis2 >90 & total_mis2 !=. & badcase ==. *=13* replace badcase =13 if total_mis >90 & total_mis !=. & badcase ==. & max_epi <7 replace badcase =13 if total_mis2 >90 & total_mis2 !=. & badcase ==. & max_epi2 <7 replace badcase=0 if badcase==. ** generating summary time for HSF ** rename HHperday HID_PID * computing total time spent in each MAIN activity* bys HID_PID diary: egen main1h = sum(time) if main==1 bys HID_PID diary: egen main1 = max(main1h) bys HID_PID diary: egen main2h = sum(time) if main==2 bys HID_PID diary: egen main2 = max(main2h) bys HID_PID diary: egen main3h = sum(time) if main==3 bys HID_PID diary: egen main3 = max(main3h) bys HID_PID diary: egen main4h = sum(time) if main==4 bys HID_PID diary: egen main4 = max(main4h) bys HID_PID diary: egen main5h = sum(time) if main==5 bys HID_PID diary: egen main5 = max(main5h) bys HID_PID diary: egen main6h = sum(time) if main==6 bys HID_PID diary: egen main6 = max(main6h) bys HID_PID diary: egen main7h = sum(time) if main==7 bys HID_PID diary: egen main7 = max(main7h) bys HID_PID diary: egen main8h = sum(time) if main==8 bys HID_PID diary: egen main8 = max(main8h) bys HID_PID diary: egen main9h = sum(time) if main==9 bys HID_PID diary: egen main9 = max(main9h) bys HID_PID diary: egen main10h = sum(time) if main==10 bys HID_PID diary: egen main10 = max(main10h) bys HID_PID diary: egen main11h = sum(time) if main==11 bys HID_PID diary: egen main11 = max(main11h) bys HID_PID diary: egen main12h = sum(time) if main==12 bys HID_PID diary: egen main12 = max(main12h) bys HID_PID diary: egen main13h = sum(time) if main==13 bys HID_PID diary: egen main13 = max(main13h) bys HID_PID diary: egen main14h = sum(time) if main==14 bys HID_PID diary: egen main14 = max(main14h) bys HID_PID diary: egen main15h = sum(time) if main==15 bys HID_PID diary: egen main15 = max(main15h) bys HID_PID diary: egen main16h = sum(time) if main==16 bys HID_PID diary: egen main16 = max(main16h) bys HID_PID diary: egen main17h = sum(time) if main==17 bys HID_PID diary: egen main17 = max(main17h) bys HID_PID diary: egen main18h = sum(time) if main==18 bys HID_PID diary: egen main18 = max(main18h) bys HID_PID diary: egen main19h = sum(time) if main==19 bys HID_PID diary: egen main19 = max(main19h) bys HID_PID diary: egen main20h = sum(time) if main==20 bys HID_PID diary: egen main20 = max(main20h) bys HID_PID diary: egen main21h = sum(time) if main==21 bys HID_PID diary: egen main21 = max(main21h) bys HID_PID diary: egen main22h = sum(time) if main==22 bys HID_PID diary: egen main22 = max(main22h) bys HID_PID diary: egen main23h = sum(time) if main==23 bys HID_PID diary: egen main23 = max(main23h) bys HID_PID diary: egen main24h = sum(time) if main==24 bys HID_PID diary: egen main24 = max(main24h) bys HID_PID diary: egen main25h = sum(time) if main==25 bys HID_PID diary: egen main25 = max(main25h) bys HID_PID diary: egen main26h = sum(time) if main==26 bys HID_PID diary: egen main26 = max(main26h) bys HID_PID diary: egen main27h = sum(time) if main==27 bys HID_PID diary: egen main27 = max(main27h) bys HID_PID diary: egen main28h = sum(time) if main==28 bys HID_PID diary: egen main28 = max(main28h) bys HID_PID diary: egen main29h = sum(time) if main==29 bys HID_PID diary: egen main29 = max(main29h) bys HID_PID diary: egen main30h = sum(time) if main==30 bys HID_PID diary: egen main30 = max(main30h) bys HID_PID diary: egen main31h = sum(time) if main==31 bys HID_PID diary: egen main31 = max(main31h) bys HID_PID diary: egen main32h = sum(time) if main==32 bys HID_PID diary: egen main32 = max(main32h) bys HID_PID diary: egen main33h = sum(time) if main==33 bys HID_PID diary: egen main33 = max(main33h) bys HID_PID diary: egen main34h = sum(time) if main==34 bys HID_PID diary: egen main34 = max(main34h) bys HID_PID diary: egen main35h = sum(time) if main==35 bys HID_PID diary: egen main35 = max(main35h) bys HID_PID diary: egen main36h = sum(time) if main==36 bys HID_PID diary: egen main36 = max(main36h) bys HID_PID diary: egen main37h = sum(time) if main==37 bys HID_PID diary: egen main37 = max(main37h) bys HID_PID diary: egen main38h = sum(time) if main==38 bys HID_PID diary: egen main38 = max(main38h) bys HID_PID diary: egen main39h = sum(time) if main==39 bys HID_PID diary: egen main39 = max(main39h) bys HID_PID diary: egen main40h = sum(time) if main==40 bys HID_PID diary: egen main40 = max(main40h) bys HID_PID diary: egen main41h = sum(time) if main==41 bys HID_PID diary: egen main41 = max(main41h) bys HID_PID diary: egen main42h = sum(time) if main==42 bys HID_PID diary: egen main42 = max(main42h) bys HID_PID diary: egen main43h = sum(time) if main==43 bys HID_PID diary: egen main43 = max(main43h) bys HID_PID diary: egen main44h = sum(time) if main==44 bys HID_PID diary: egen main44 = max(main44h) bys HID_PID diary: egen main45h = sum(time) if main==45 bys HID_PID diary: egen main45 = max(main45h) bys HID_PID diary: egen main46h = sum(time) if main==46 bys HID_PID diary: egen main46 = max(main46h) bys HID_PID diary: egen main47h = sum(time) if main==47 bys HID_PID diary: egen main47 = max(main47h) bys HID_PID diary: egen main48h = sum(time) if main==48 bys HID_PID diary: egen main48 = max(main48h) bys HID_PID diary: egen main49h = sum(time) if main==49 bys HID_PID diary: egen main49 = max(main49h) bys HID_PID diary: egen main50h = sum(time) if main==50 bys HID_PID diary: egen main50 = max(main50h) bys HID_PID diary: egen main51h = sum(time) if main==51 bys HID_PID diary: egen main51 = max(main51h) bys HID_PID diary: egen main52h = sum(time) if main==52 bys HID_PID diary: egen main52 = max(main52h) bys HID_PID diary: egen main53h = sum(time) if main==53 bys HID_PID diary: egen main53 = max(main53h) bys HID_PID diary: egen main54h = sum(time) if main==54 bys HID_PID diary: egen main54= max(main54h) bys HID_PID diary: egen main55h = sum(time) if main==55 bys HID_PID diary: egen main55 = max(main55h) bys HID_PID diary: egen main56h = sum(time) if main==56 bys HID_PID diary: egen main56 = max(main56h) bys HID_PID diary: egen main57h = sum(time) if main==57 bys HID_PID diary: egen main57 = max(main57h) bys HID_PID diary: egen main58h = sum(time) if main==58 bys HID_PID diary: egen main58 = max(main58h) bys HID_PID diary: egen main59h = sum(time) if main==59 bys HID_PID diary: egen main59 = max(main59h) bys HID_PID diary: egen main60h = sum(time) if main==60 bys HID_PID diary: egen main60 = max(main60h) bys HID_PID diary: egen main61h = sum(time) if main==61 bys HID_PID diary: egen main61 = max(main61h) bys HID_PID diary: egen main62h = sum(time) if main==62 bys HID_PID diary: egen main62 = max(main62h) bys HID_PID diary: egen main63h = sum(time) if main==63 bys HID_PID diary: egen main63 = max(main63h) bys HID_PID diary: egen main64h = sum(time) if main==64 bys HID_PID diary: egen main64 = max(main64h) bys HID_PID diary: egen main65h = sum(time) if main==65 bys HID_PID diary: egen main65 = max(main65h) bys HID_PID diary: egen main66h = sum(time) if main==66 bys HID_PID diary: egen main66 = max(main66h) bys HID_PID diary: egen main67h = sum(time) if main==67 bys HID_PID diary: egen main67 = max(main67h) bys HID_PID diary: egen main68h = sum(time) if main==68 bys HID_PID diary: egen main68 = max(main68h) bys HID_PID diary: egen main69h = sum(time) if main==69 bys HID_PID diary: egen main69 = max(main69h) drop main1h main2h main3h main4h main5h main6h /// main7h main8h main9h main10h main11h main12h main13h main14h main15h main16h /// main17h main18h main19h main20h main21h main22h main23h main24h main25h main26h /// main27h main28h main29h main30h main31h main32h main33h main34h main35h main36h /// main37h main38h main39h main40h main41h main42h main43h main44h main45h main46h /// main47h main48h main49h main50h main51h main52h main53h main54h main55h main56h /// main57h main58h main59h main60h main61h main62h main63h main64h main65h main66h /// main67h main68h main69h * computing total time spent in each AV activity* bys HID_PID diary: egen av1h = sum(time) if av==1 bys HID_PID diary: egen av1 = max(av1h) bys HID_PID diary: egen av2h = sum(time) if av==2 bys HID_PID diary: egen av2 = max(av2h) bys HID_PID diary: egen av3h = sum(time) if av==3 bys HID_PID diary: egen av3 = max(av3h) bys HID_PID diary: egen av4h = sum(time) if av==4 bys HID_PID diary: egen av4 = max(av4h) bys HID_PID diary: egen av5h = sum(time) if av==5 bys HID_PID diary: egen av5 = max(av5h) bys HID_PID diary: egen av6h = sum(time) if av==6 bys HID_PID diary: egen av6 = max(av6h) bys HID_PID diary: egen av7h = sum(time) if av==7 bys HID_PID diary: egen av7 = max(av7h) bys HID_PID diary: egen av8h = sum(time) if av==8 bys HID_PID diary: egen av8 = max(av8h) bys HID_PID diary: egen av9h = sum(time) if av==9 bys HID_PID diary: egen av9 = max(av9h) bys HID_PID diary: egen av10h = sum(time) if av==10 bys HID_PID diary: egen av10 = max(av10h) bys HID_PID diary: egen av11h = sum(time) if av==11 bys HID_PID diary: egen av11 = max(av11h) bys HID_PID diary: egen av12h = sum(time) if av==12 bys HID_PID diary: egen av12 = max(av12h) bys HID_PID diary: egen av13h = sum(time) if av==13 bys HID_PID diary: egen av13 = max(av13h) bys HID_PID diary: egen av14h = sum(time) if av==14 bys HID_PID diary: egen av14 = max(av14h) bys HID_PID diary: egen av15h = sum(time) if av==15 bys HID_PID diary: egen av15 = max(av15h) bys HID_PID diary: egen av16h = sum(time) if av==16 bys HID_PID diary: egen av16 = max(av16h) bys HID_PID diary: egen av17h = sum(time) if av==17 bys HID_PID diary: egen av17 = max(av17h) bys HID_PID diary: egen av18h = sum(time) if av==18 bys HID_PID diary: egen av18 = max(av18h) bys HID_PID diary: egen av19h = sum(time) if av==19 bys HID_PID diary: egen av19 = max(av19h) bys HID_PID diary: egen av20h = sum(time) if av==20 bys HID_PID diary: egen av20 = max(av20h) bys HID_PID diary: egen av21h = sum(time) if av==21 bys HID_PID diary: egen av21 = max(av21h) bys HID_PID diary: egen av22h = sum(time) if av==22 bys HID_PID diary: egen av22 = max(av22h) bys HID_PID diary: egen av23h = sum(time) if av==23 bys HID_PID diary: egen av23 = max(av23h) bys HID_PID diary: egen av24h = sum(time) if av==24 bys HID_PID diary: egen av24 = max(av24h) bys HID_PID diary: egen av25h = sum(time) if av==25 bys HID_PID diary: egen av25 = max(av25h) bys HID_PID diary: egen av26h = sum(time) if av==26 bys HID_PID diary: egen av26 = max(av26h) bys HID_PID diary: egen av27h = sum(time) if av==27 bys HID_PID diary: egen av27 = max(av27h) bys HID_PID diary: egen av28h = sum(time) if av==28 bys HID_PID diary: egen av28 = max(av28h) bys HID_PID diary: egen av29h = sum(time) if av==29 bys HID_PID diary: egen av29 = max(av29h) bys HID_PID diary: egen av30h = sum(time) if av==30 bys HID_PID diary: egen av30 = max(av30h) bys HID_PID diary: egen av31h = sum(time) if av==31 bys HID_PID diary: egen av31 = max(av31h) bys HID_PID diary: egen av32h = sum(time) if av==32 bys HID_PID diary: egen av32 = max(av32h) bys HID_PID diary: egen av33h = sum(time) if av==33 bys HID_PID diary: egen av33 = max(av33h) bys HID_PID diary: egen av34h = sum(time) if av==34 bys HID_PID diary: egen av34 = max(av34h) bys HID_PID diary: egen av35h = sum(time) if av==35 bys HID_PID diary: egen av35 = max(av35h) bys HID_PID diary: egen av36h = sum(time) if av==36 bys HID_PID diary: egen av36 = max(av36h) bys HID_PID diary: egen av37h = sum(time) if av==37 bys HID_PID diary: egen av37 = max(av37h) bys HID_PID diary: egen av38h = sum(time) if av==38 bys HID_PID diary: egen av38 = max(av38h) bys HID_PID diary: egen av39h = sum(time) if av==39 bys HID_PID diary: egen av39 = max(av39h) bys HID_PID diary: egen av40h = sum(time) if av==40 bys HID_PID diary: egen av40 = max(av40h) bys HID_PID diary: egen av41h = sum(time) if av==41 bys HID_PID diary: egen av41 = max(av41h) drop av1h av2h av3h av4h av5h av6h av7h av8h av9h av10h av11h av12h av13h av14h av15h av16h /// av17h av18h av19h av20h av21h av22h av23h av24h av25h av26h av27h av28h av29h av30h av31h /// av32h av33h av34h av35h av36h av37h av38h av39h av40h av41h * recoding no time to 0 & cannot be created to -9* *av1-41* foreach x of varlist av1-av2 { replace `x' = 0 if `x'==. } * foreach x of varlist av4-av25 { replace `x' = 0 if `x'==. } * foreach x of varlist av27-av41 { replace `x' = 0 if `x'==. } * foreach x of varlist av3 av26 { replace `x' = -9 if `x'==. } * *main1-69* foreach x of varlist main1-main8 main11-main13 main15-main69{ replace `x' = 0 if `x'==. } * foreach x of varlist main9 main10 main14 { replace `x' = -9 if `x'==. } ****** 25 summary activities********* gen sleep= main2+main3 gen eatdrink= main5+ main6 gen selfcare=main4 gen paidwork = main7+ main8 +main9 + main11+ main12+ main13 gen educatn = main15 + main16 + main17 gen foodprep = main18+ main19 gen cleanetc=main20+ main21+ main23 gen maintain = main22 gen shopserv=main24+main25+main26 gen garden= main46 gen petcare= main27+ main47 gen eldcare = main32 gen pkidcare= main28+ main31 gen ikidcare=main29+ main30 gen religion = main34 gen volorgwk = main33 gen commute = main63+ main64 gen travel= main62 + main65 + main66 + main67 + main68 gen sportex = main42 + main43+ main44 gen TVradio = main57+ main58+ main59 gen read = main56 gen compint = main60+ main61 gen goout = main35+ main36+ main37 + main38+ main39+ main40 + main41 + main45 gen leisure = main48+ main49+ main50 + main51 + main52 + main53+ main54 + main55 gen missing = main69 gen restrnt = main39 gen eatatwrk=main5 gen compgame=main60 gen caretrav=main66 bys HID_PID diary: egen SPPART_help= sum(time) if sppart==1 bys HID_PID diary: egen SPPART = max(SPPART_help) drop SPPART_help recode SPPART (.=0) * rename* rename sp sex rename ika age rename pkvp day gen cday =-9 rename tutkk month gen id = diary gen year = 2009 if month >5 replace year= 2010 if month <=5 rename WCAL_PVK_n propwt *cleaning to leave only HEF vars* keep country survey swave msamp hldid persid id day cday month year diary badcase /// sex age time clockst start end epnum main sec av inout eloc ict mtrav alone child sppart oad order country survey swave msamp hldid persid id day cday month year diary badcase /// sex age time clockst start end epnum main sec av inout eloc ict mtrav alone child sppart oad *final cleaning HEF* recode sec (.=69)