*Syntax to create the MTUS World 5.53 files for the Netherlands 2000. Mr. José Ignacio Gimenez Nadal, University of Zaragoza, Spain *Cleaning the workspace and extending the size of the memory clear set more off set mem 600m set maxvar 15000 *Creating a working directory where all the files will be stored. The output data is in the working directory and all the original files must be in this directory before starting with the harmonization process. local path="F:\Nacho\Data\MTUS_Harmonization\Netherlands_2000" cd `path' clear use netherlands2000.dta ***************************************************************************************************************************************************************************** ***************************************************************************************************************************************************************************** ***************************************************** HARMONIZED SURVEY, DEMOGRAPHIC, AND SOCIO-ECONOMIC VARIABLES ********************************************************** ***************************************************************************************************************************************************************************** ***************************************************************************************************************************************************************************** * COUNTREG * generate countreg=22 * SURVEY * generate survey=2000 * SWAVE * generate swave=0 * MSAMP * generate msamp=0 * HLDID * generate hldid=0 * PERSID * generate persid=tbonr * PARNTID1 * gen parntid1=-9 * PARNTID2 * gen parntid2=-9 * PARTID * gen partid=-9 * MONTH * generate month=10 * YEAR * generate year=2000 * SEX * generate sex=v08901 * AGE * /* No direct information on age. We use information on year and moth of birth, and we rest this information to the year and moth of the survey (2000)*/ generate birthyr=v08601 generate birthmn=v08601a generate age=2000-birthyr *** note survey start in october, fieldwork 2 weeks. replace age=age-1 if birthmn>9 replace age=80 if age>=80 * RELREFP * generate relrefp=v08501 replace relrefp=9 if relrefp==4 replace relrefp=10 if relrefp==5 * CIVSTAT * generate civstat=1 if hh01b4==1 replace civstat=2 if hh01b4==2 replace civstat=1 if v139==1 & civstat==. replace civstat=2 if v139==2 & civstat==. /* correct 1 inconsistency of person reporting no partner but relation to main income earner is partner - this person is a single parent or a person with the main income earner absent. as they later report being single, treat as a single parent. */ replace relrefp=1 if civstat==2 & v08501==2 replace v08501=1 if civstat==2 & v08501==2 *correct another inconsistency of a main income earner coded as no partner who relationship to person 2 is partner. generate test=0 replace test=1 if civstat==2 & v08501==1 & v08502==2 replace civstat=1 if civstat==2 & v08501==1 & v08502==2 * COHAB * *not possible to distinguish cohabiting from married couples gen cohab=-9 * EMPSP * generate empsp=-8. replace empsp=-7 if v139==2 replace empsp=1 if v147==1 & v149>30 replace empsp=2 if v147==1 & (v149>=1 & v149<30) replace empsp=3 if v147==1 & empsp==-8 replace empsp=4 if v147==2 *there are 641 missing values replace empsp=1 if v08502==1 & hh02b7>6 & empsp==-8 replace empsp=2 if v08502==1 & hh02b7>1 & empsp==-8 replace empsp=4 if v08502==1 & hh02b8>0 & empsp==-8 replace empsp=1 if v08503==1 & hh03b7>6 & empsp==-8 replace empsp=2 if v08503==1 & hh03b7>1 & empsp==-8 replace empsp=4 if v08503==1 & hh03b8>0 & empsp==-8 replace empsp=1 if v08502==2 & hh02b7>6 & test==1 replace empsp=2 if v08502==2 & hh02b7>1 & test==1 replace empsp=4 if v08502==2 & hh02b8>0 & test==1 /* 12 cases missing - 0.7% - much more acceptable; also there is a shift in the balance of spouse work - now most spouses work full-time rather than part-time as before - the previous variable seems to be asked of diarists who were the main income earner */ * STUDENT * gen student=1 if v123==1 replace student=0 if v123==2 replace student=1 if student==0 & hh01b8==6 * UNEMP * gen unemp=0 replace unemp=1 if hh01b8==2 * RETIRED * gen retired=1 if hh01b8==4 | hh01b8==5 replace retired=0 if retired==. * EMPSTAT * gen empstat=4 if v111<1 & v110==1 replace empstat=1 if v110==2 & v111>30 replace empstat=2 if v110==2 & (v111>0 & v111<=30) replace empstat=3 if v110==2 & empstat==. * EMP * gen emp=1 if empstat<4 replace emp=0 if empstat==4 * WORKHRS * gen workhrs=v111 if v111>=0 replace workhrs=-8 if v111==-3 replace workhrs=-7 if v111==-5 * HHLDSIZE * generate hhldsize = v319 * HHTYPE (AND SINGPAR) * gen hhtype=-5. gen singpar=0 replace hhtype=1 if v319==1 replace hhtype=2 if civstat==1 & v319==2 replace hhtype=3 if civstat==1 & v319>2 replace singpar=1 if v08501==1 & (v08502==3 | v08503==3 | v08504==3 | v08505==3 | v08506==3 | v08507==3) & (v08502!=2 & v08503!=2 & v08504!=2 & v08505!=2 & v08506!=2 & v08507!=2) replace hhtype=4 if v08501==1 & (v08502==3 | v08503==3 | v08504==3 | v08505==3 | v08506==3 | v08507==3) & (v08502!=2 & v08503!=2 & v08504!=2 & v08505!=2 & v08506!=2 & v08507!=2) *to this point, 199 cases have no hhtype. 185 of these cases have are the child of the main income earner tab v08501 if hhtype==-5 replace hhtype=3 if v08501==3 & (v08502==2 | v08503==2 | v08504==2 | v08505==2 | v08506==2 | v08507==2) & hhtype==-5 replace hhtype=4 if v08501==3 & hhtype==-5 /* this adds 155 child diarists into couple+ households and 31 children into single parent households. this leaves 13 uncoded hhtype cases 8 have 2 people, 3 3 people, and 3 4 people. The 3 4 person hhds are single parent households; the others are various combinations of household type all are set to category 4 */ replace hhtype=4 if hhtype==-5. * CPHOME * generate cphome=0 replace cphome=1 if v08501==3 * NCHILD * *in theory date of birth information is available for up to 9 people, but in practice it is only available for up to 7 people. for num 1/7: gen birthyrX=v0860X for num 1/7: gen birthmnX=v0860Xa for num 1/7: gen ageX=2000-birthyrX for num 1/7: replace ageX=ageX-1 if birthmnX>9 for num 1/7: replace ageX=100 if ageX==2005 for num 1/7: gen childX=1 if ageX<18 egen nchild=rsum(child1 - child7) * AGEKIDX * egen agekidx_inter=rmin(age1 - age7) gen agekidx=1 if agekidx_inter>=0 & agekidx_inter<5 replace agekidx=2 if agekidx_inter>4 & agekidx_inter<13 replace agekidx=3 if agekidx_inter>12 & agekidx_inter<18 replace agekidx=4 if cphome==1 & agekidx==. replace agekidx=-7 if hhldsize==1 & agekidx==. replace agekidx=-7 if hhtype==2 & agekidx==. replace agekidx=-7 if nchild==0 & agekidx==. * AGEKID2 * gen agekid2=agekidx_inter if agekidx_inter>=0 & agekidx_inter<18 replace agekid2=agekidx_inter if cphome==1 & agekid2==. replace agekid2=-7 if hhldsize==1 & agekid2==. replace agekid2=-7 if hhtype==2 & agekid2==. replace agekid2=-7 if nchild==0 & agekid2==. * FAMSTAT * gen famstat=4 if cphome==1 & civstat==2 & age<18 replace famstat=5 if age<18 & civstat==2 & famstat!=4 replace famstat=0 if (agekidx==-7 | agekidx==4) & age<40 replace famstat=3 if (agekidx==-7 | agekidx==4) & age>39 replace famstat=1 if agekidx==1 & age>17 replace famstat=2 if (agekidx==2 | agekidx==3) & age>17 * INCORIG * /* main variable for the imputation of income is v258. However, there are missing cases, so we use the variable v672 as additional information v672 is a interval variable, so we have to recode the variable according to the mid point of the interval */ replace v672=1200 if v672==1 replace v672=1250 if v672==2 replace v672=1500 if v672==3 replace v672=1750 if v672==4 replace v672=2000 if v672==5 replace v672=2250 if v672==6 replace v672=2500 if v672==7 replace v672=2750 if v672==8 replace v672=3250 if v672==9 replace v672=3750 if v672==10 replace v672=4250 if v672==11 replace v672=5250 if v672==12 replace v672=6250 if v672==13 replace v258=v672 if v258<0 & v672>=1 gen incorig=-8 if v258<0 replace incorig=v258 if incorig==. * INCOME * sort incorig egen percentile25=pctile(incorig) if incorig>=0,p(25) egen percentile75=pctile(incorig) if incorig>=0,p(75) generate income=-8 if incorig==-8 replace income=1 if incorig<=percentile25 & incorig!=-8 replace income=2 if (incorig>percentile25 & incorig<=percentile75) & incorig!=-8 replace income=3 if income==. /* ****************** valid cumulative ** value label value frequency percent percent percent ** lowest 25% 1 319 17.6 25.0 25.0 ** middle 50% 2 638 35.2 50.1 75.1 ** highest 25% 3 316 17.4 24.9 100.0 ** non-response -8 540 29.8 missing ************************************ */ * EMPINCLM * *not possible to create diarist's income from employment, though *this will be possible from 2005. gen empinclm=-9. * EDUCA * gen educa=v428 * EDTRY * generate edtry=1 if educa<3 replace edtry=2 if educa==3 | educa==4 | educa==5 replace edtry=3 if educa>5 replace edtry=3 if v429==6 | v429==7 * DISAB * gen disab=0 replace disab=1 if v607==1 * URBAN * gen urban=1 if v356>=4 replace urban=2 if v356<4 replace urban=-8 if v356<0 * COMPUTER * gen computer=0 if v216==1 replace computer=1 if v216>1 * RUSHED * gen rushed=0 if v676==3 replace rushed=1 if v676==2 replace rushed=2 if v676==1 replace rushed=-8 if rushed==. * HEALTH * gen health=3 if v550==1 replace health=2 if v550==2 replace health=1 if v550==3 | v550==4 replace health=0 if v550==5 replace health=-8 if health==. * CARER * /* FIRST CRITERIA gen carer=1 if v201==1 & v202==2 */ * SECOND CRITERIA gen carer=1 if v201==1 replace carer=0 if carer==. * VEHICLE * generate vehicle=4 if v222>=2 replace vehicle=3 if v221==1 & vehicle==. replace vehicle=3 if vehicle==. & v220==1 replace vehicle=2 if v219==1 & vehicle==. replace vehicle=0 if vehicle==. * CITIZEN * gen citizen=1 if v900a==1 replace citizen=0 if v900a!=1 * OWNHOME * generate ownhome=-9 * OCCUP * gen occup=-9 * SECTOR * gen sector=. replace sector=-8 if v105==-3 | v105==. replace sector=1 if v105==3 replace sector=2 if v105==1 | v105==2 | v105==4 | v105==5 | v105==30 replace sector=-7 if v105==-5 ************************************************************************************ **ADJUSTMENTS AFTER QUALITY CHECKS FOR DEMOGRAPHICS, HOUSEHOLD... CHARACTERISTICS*** replace hhtype=4 if hhtype==2 & famstat==2 replace unemp=0 if emp==1 & unemp==1 /* there are 70 cases where hhtype=4 & civstat=1. All these cases have hhldsize>1, 14 have nchild=0, the rest have nchild>0 */ replace hhtype=2 if hhtype==4 & civstat==1 & nchild==0 replace hhtype=3 if hhtype==4 & civstat==1 & nchild>0 /* there are 294 cases where agekidx>-7 & nchild==0 */ **retired *People below the school leaving age cannot be retired. For this reason, for people aged <20 we change retired=1 to retired=1 replace retired=0 if age<20 & retired==1 **The same applies for unemployment, but with age<16 replace unemp=0 if age<18 & unemp==1 **there is one case with hhldsize=1 and nchild=1. The age of the individual is 17, meaning a 17-years-old person who lives alone. ****************************************************************************************************************************************************************************** ****************************************************************************************************************************************************************************** ********************************************************************************* TIME USE VARIABLES ************************************************************************* ****************************************************************************************************************************************************************************** ****************************************************************************************************************************************************************************** *** DATA PREPARATION ******************** **MAIN ACTIVITIES AS SECONDARY ACTIVITIES ***************************************** local k=1 while `k'<8{ local i=1 while `i'<10{ replace ha`k'0`i'=(na`k'0`i'+900) if ha`k'0`i'==998 & na`k'0`i'!=. local i=`i'+1 } local i=10 while `i'<97{ replace ha`k'`i'=(na`k'`i'+900) if ha`k'`i'==998 & na`k'`i'!=. local i=`i'+1 } local k=`k'+1 } *** SECONDARY ACTIVITIES ************************* local k=1 while `k'<8{ local i=1 while `i'<10{ replace na`k'0`i'=(na`k'0`i'+900) local i=`i'+1 } local i=10 while `i'<97{ replace na`k'`i'=(na`k'`i'+900) local i=`i'+1 } local k=`k'+1 } **IMPUTED SLEEP==471 ******************** local k=1 while `k'<8{ local i=2 while `i'<10{ local j=`i'-1 replace ha`k'0`i'=471 if ha`k'0`i'==998 & (ha`k'0`j'==450 | ha`k'0`j'==460 | ha`k'0`j'==470) local i=`i'+1 } replace ha`k'10=471 if ha`k'10==998 & (ha`k'09==450 | ha`k'09==460 | ha`k'09==470) local i=11 while `i'<97{ local j=`i'-1 replace ha`k'`i'=471 if ha`k'`i'==998 & (ha`k'`j'==450 | ha`k'`j'==460 | ha`k'`j'==470) local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'+1 replace ha`k'0`i'=471 if ha`k'0`i'==998 & (ha`k'0`j'==450 | ha`k'0`j'==460 | ha`k'0`j'==470) local i=`i'+1 } replace ha`k'09=471 if ha`k'09==998 & (ha`k'10==450 | ha`k'10==460 | ha`k'10==470) local i=11 while `i'<96{ local j=`i'+1 replace ha`k'`i'=471 if ha`k'`i'==998 & (ha`k'`j'==450 | ha`k'`j'==460 | ha`k'`j'==470) local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'+1 replace ha`k'0`i'=471 if ha`k'0`i'==998 & ha`k'0`j'==471 local i=`i'+1 } replace ha`k'09=471 if ha`k'09==998 & ha`k'10==471 local i=11 while `i'<96{ local j=`i'+1 replace ha`k'`i'=471 if ha`k'`i'==998 & ha`k'`j'==471 local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'-1 replace ha`k'0`i'=471 if ha`k'0`i'==998 & ha`k'0`j'==471 local i=`i'+1 } replace ha`k'10=471 if ha`k'10==998 & ha`k'09==471 local i=11 while `i'<97{ local j=`i'-1 replace ha`k'`i'=471 if ha`k'`i'==998 & ha`k'`j'==471 local i=`i'+1 } local k=`k'+1 } **IMPUTED PERSONAL AND HOUSEHOLD CARE==401 ****************************************** local k=1 while `k'<8{ local i=2 while `i'<10{ local j=`i'-1 replace ha`k'0`i'=401 if ha`k'0`i'==998 & ((ha`k'0`j'>=91 | ha`k'0`j'<100) | (ha`k'0`j'>=191 | ha`k'0`j'<200) | (ha`k'0`j'>=291 | ha`k'0`j'<300) | (ha`k'0`j'>=391 | ha`k'0`j'<400) | (ha`k'0`j'>=491 | ha`k'0`j'<500) | (ha`k'0`j'>=591 | ha`k'0`j'<600) | (ha`k'0`j'>=691 | ha`k'0`j'<700) | (ha`k'0`j'>=791 | ha`k'0`j'<800) | (ha`k'0`j'>=891 | ha`k'0`j'<900)) local i=`i'+1 } replace ha`k'10=401 if ha`k'10==998 & ((ha`k'09>=91 | ha`k'09<100) | (ha`k'09>=191 | ha`k'09<200) | (ha`k'09>=291 | ha`k'09<300) | (ha`k'09>=391 | ha`k'09<400) | (ha`k'09>=491 | ha`k'09<500) | (ha`k'09>=591 | ha`k'09<600) | (ha`k'09>=691 | ha`k'09<700) | (ha`k'09>=791 | ha`k'09<800) | (ha`k'09>=891 | ha`k'09<900)) local i=11 while `i'<97{ local j=`i'-1 replace ha`k'`i'=401 if ha`k'`i'==998 & ((ha`k'`j'>=91 | ha`k'`j'<100) | (ha`k'`j'>=191 | ha`k'`j'<200) | (ha`k'`j'>=291 | ha`k'`j'<300) | (ha`k'`j'>=391 | ha`k'`j'<400) | (ha`k'`j'>=491 | ha`k'`j'<500) | (ha`k'`j'>=591 | ha`k'`j'<600) | (ha`k'`j'>=691 | ha`k'`j'<700) | (ha`k'`j'>=791 | ha`k'`j'<800) | (ha`k'`j'>=891 | ha`k'`j'<900)) local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'+1 replace ha`k'0`i'=401 if ha`k'0`i'==998 & ((ha`k'0`j'>=91 | ha`k'0`j'<100) | (ha`k'0`j'>=191 | ha`k'0`j'<200) | (ha`k'0`j'>=291 | ha`k'0`j'<300) | (ha`k'0`j'>=391 | ha`k'0`j'<400) | (ha`k'0`j'>=491 | ha`k'0`j'<500) | (ha`k'0`j'>=591 | ha`k'0`j'<600) | (ha`k'0`j'>=691 | ha`k'0`j'<700) | (ha`k'0`j'>=791 | ha`k'0`j'<800) | (ha`k'0`j'>=891 | ha`k'0`j'<900)) local i=`i'+1 } replace ha`k'09=401 if ha`k'09==998 & ((ha`k'10>=91 | ha`k'10<100) | (ha`k'10>=191 | ha`k'10<200) | (ha`k'10>=291 | ha`k'10<300) | (ha`k'10>=391 | ha`k'10<400) | (ha`k'10>=491 | ha`k'10<500) | (ha`k'10>=591 | ha`k'10<600) | (ha`k'10>=691 | ha`k'10<700) | (ha`k'10>=791 | ha`k'10<800) | (ha`k'10>=891 | ha`k'10<900)) local i=10 while `i'<96{ local j=`i'+1 replace ha`k'`i'=401 if ha`k'`i'==998 & ((ha`k'`j'>=91 | ha`k'`j'<100) | (ha`k'`j'>=191 | ha`k'`j'<200) | (ha`k'`j'>=291 | ha`k'`j'<300) | (ha`k'`j'>=391 | ha`k'`j'<400) | (ha`k'`j'>=491 | ha`k'`j'<500) | (ha`k'`j'>=591 | ha`k'`j'<600) | (ha`k'`j'>=691 | ha`k'`j'<700) | (ha`k'`j'>=791 | ha`k'`j'<800) | (ha`k'`j'>=891 | ha`k'`j'<900)) local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'+1 replace ha`k'0`i'=401 if ha`k'0`i'==998 & ha`k'0`j'==401 local i=`i'+1 } replace ha`k'09=401 if ha`k'09==998 & ha`k'10==401 local i=10 while `i'<96{ local j=`i'+1 replace ha`k'`i'=401 if ha`k'`i'==998 & ha`k'`j'==401 local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<10{ local j=`i'-1 replace ha`k'0`i'=401 if ha`k'0`i'==998 & ha`k'0`j'==401 local i=`i'+1 } replace ha`k'10=401 if ha`k'10==998 & ha`k'09==401 local i=11 while `i'<97{ local j=`i'-1 replace ha`k'`i'=401 if ha`k'`i'==998 & ha`k'`j'==401 local i=`i'+1 } local k=`k'+1 } **IMPUTED TIME AWAY FROM HOME (782) *********************************** local k=1 while `k'<8{ local i=2 while `i'<10{ replace ha`k'0`i'=782 if ha`k'0`i'==998 & (pl`k'0`i'==2 | pl`k'0`i'==3) local i=`i'+1 } local i=10 while `i'<97{ replace ha`k'`i'=782 if ha`k'`i'==998 & (pl`k'`i'==2 | pl`k'`i'==3) local i=`i'+1 } local k=`k'+1 } **AV VARIABLES **************** ** AV 1 ** local i=1 while `i'<8{ for num 1/9: gen av1_`i'_X=15 if (ha`i'0X==00 | ha`i'0X==20 | ha`i'0X==40 | ha`i'0X==55 | ha`i'0X==60 | ha`i'0X==70 | ha`i'0X==80 | ha`i'0X==510) for num 10/96: gen av1_`i'_X=15 if (ha`i'X==00 | ha`i'X==20 | ha`i'X==40 | ha`i'X==55 | ha`i'X==60 | ha`i'X==70 | ha`i'X==80 | ha`i'X==510) egen av1_`i'=rsum(av1_`i'_*) drop av1_`i'_* local i=`i'+1 } ** AV 2 ** local i=1 while `i'<8{ for num 1/9: gen av2_`i'_X=15 if (ha`i'0X==10) for num 10/96: gen av2_`i'_X=15 if (ha`i'X==10) egen av2_`i'=rsum(av2_`i'_*) drop av2_`i'_* local i=`i'+1 } ** AV 3 ** local i=1 while `i'<8{ for num 1/9: gen av3_`i'_X=15 if (ha`i'0X==50) for num 10/96: gen av3_`i'_X=15 if (ha`i'X==50) egen av3_`i'=rsum(av3_`i'_*) drop av3_`i'_* local i=`i'+1 } ** AV 4 ** local i=1 while `i'<8{ for num 1/9: gen av4_`i'_X=15 if (ha`i'0X==500 | ha`i'0X==520 | ha`i'0X==530 | ha`i'0X==541 | ha`i'0X==550 | ha`i'0X==560 | ha`i'0X==570) for num 10/96: gen av4_`i'_X=15 if (ha`i'X==500 | ha`i'X==520 | ha`i'X==530 | ha`i'X==541 | ha`i'X==550 | ha`i'X==560 | ha`i'X==570) egen av4_`i'=rsum(av4_`i'_*) drop av4_`i'_* local i=`i'+1 } ** AV 5 ** local i=1 while `i'<8{ for num 1/9: gen av5_`i'_X=15 if (ha`i'0X==0031 | ha`i'0X==0032 |ha`i'0X==0033 | ha`i'0X==0034 | ha`i'0X==0035 | ha`i'0X==0036 | ha`i'0X==0037 | ha`i'0X==0091 | ha`i'0X==0092 | ha`i'0X==0093 | ha`i'0X==0094 | ha`i'0X==0095 | ha`i'0X==0096 | ha`i'0X==0097 | ha`i'0X==591 | ha`i'0X==592 | ha`i'0X==593 | ha`i'0X==594 | ha`i'0X==595 | ha`i'0X==596 | ha`i'0X==597) for num 10/96: gen av5_`i'_X=15 if (ha`i'X==0031 | ha`i'X==0032 |ha`i'X==0033 | ha`i'X==0034 | ha`i'X==0035 | ha`i'X==0036 | ha`i'X==0037 | ha`i'X==0091 | ha`i'X==0092 | ha`i'X==0093 | ha`i'X==0094 | ha`i'X==0095 | ha`i'X==0096 | ha`i'X==0097 | ha`i'X==591 | ha`i'X==592 | ha`i'X==593 | ha`i'X==594 | ha`i'X==595 | ha`i'X==596 | ha`i'X==597) egen av5_`i'=rsum(av5_`i'_*) drop av5_`i'_* local i=`i'+1 } ** AV 6 ** local i=1 while `i'<8{ for num 1/9: gen av6_`i'_X=15 if (ha`i'0X==100 | ha`i'0X==110 | ha`i'0X==111) for num 10/96: gen av6_`i'_X=15 if (ha`i'X==100| ha`i'X==110 | ha`i'X==111) egen av6_`i'=rsum(av6_`i'_*) drop av6_`i'_* local i=`i'+1 } ** AV 7** local i=1 while `i'<8{ for num 1/9: gen av7_`i'_X=15 if (ha`i'0X==121 | ha`i'0X==122 | ha`i'0X==123 | ha`i'0X==124 | ha`i'0X==125 | ha`i'0X==141 | ha`i'0X==142) for num 10/96: gen av7_`i'_X=15 if (ha`i'X==121 | ha`i'X==122 | ha`i'X==123 | ha`i'X==124 | ha`i'X==125 | ha`i'X==141 | ha`i'X==142) egen av7_`i'=rsum(av7_`i'_*) drop av7_`i'_* local i=`i'+1 } ** AV 8** local i=1 while `i'<8{ for num 1/9: gen av8_`i'_X=15 if (ha`i'0X==130 | ha`i'0X==131 | ha`i'0X==132 | ha`i'0X==150 | ha`i'0X==160 | ha`i'0X==171 | ha`i'0X==172 | ha`i'0X==180 | ha`i'0X==420 | ha`i'0X==630 | ha`i'0X==666) for num 10/96: gen av8_`i'_X=15 if (ha`i'X==130 | ha`i'X==131 | ha`i'X==132 | ha`i'X==150 | ha`i'X==160 | ha`i'X==171 | ha`i'X==172 | ha`i'X==180 | ha`i'X==420 | ha`i'X==630 | ha`i'X==666) egen av8_`i'=rsum(av8_`i'_*) drop av8_`i'_* local i=`i'+1 } ** AV 9** local i=1 while `i'<8{ for num 1/9: gen av9_`i'_X=15 if (ha`i'0X==151) for num 10/96: gen av9_`i'_X=15 if (ha`i'X==151) egen av9_`i'=rsum(av9_`i'_*) drop av9_`i'_* local i=`i'+1 } ** AV 10** local i=1 while `i'<8{ for num 1/9: gen av10_`i'_X=15 if (ha`i'0X==301 | ha`i'0X==302 | ha`i'0X==303 | ha`i'0X==310 | ha`i'0X==311 | ha`i'0X==312 | ha`i'0X==313 | ha`i'0X==314 | ha`i'0X==315 | ha`i'0X==316 | ha`i'0X==340 | ha`i'0X==341 | ha`i'0X==342 | ha`i'0X==350 | ha`i'0X==351 | ha`i'0X==360 | ha`i'0X==370) for num 10/96: gen av10_`i'_X=15 if (ha`i'X==301 | ha`i'X==302 | ha`i'X==303 | ha`i'X==310 | ha`i'X==311 | ha`i'X==312 | ha`i'X==313 | ha`i'X==314 | ha`i'X==315 | ha`i'X==316 | ha`i'X==340 | ha`i'X==341 | ha`i'X==342 | ha`i'X==350 | ha`i'X==351 | ha`i'X==360 | ha`i'X==370) egen av10_`i'=rsum(av10_`i'_*) drop av10_`i'_* local i=`i'+1 } ** AV 11** local i=1 while `i'<8{ for num 1/9: gen av11_`i'_X=15 if (ha`i'0X==200 | ha`i'0X==210 | ha`i'0X==220 | ha`i'0X==230 | ha`i'0X==240 | ha`i'0X==250 | ha`i'0X==260 | ha`i'0X==270) for num 10/96: gen av11_`i'_X=15 if (ha`i'X==200 | ha`i'X==210 | ha`i'X==220 | ha`i'X==230 | ha`i'X==240 | ha`i'X==250 | ha`i'X==260 | ha`i'X==270) egen av11_`i'=rsum(av11_`i'_*) drop av11_`i'_* local i=`i'+1 } ** AV 12** local i=1 while `i'<8{ for num 1/9: gen av12_`i'_X=15 if (ha`i'0X==191 | ha`i'0X==192 | ha`i'0X==193 | ha`i'0X==194 | ha`i'0X==195 | ha`i'0X==196 | ha`i'0X==291 | ha`i'0X==292 | ha`i'0X==293 | ha`i'0X==294 | ha`i'0X==295 | ha`i'0X==296 | ha`i'0X==297 | ha`i'0X==391 | ha`i'0X==392 | ha`i'0X==393 | ha`i'0X==394 | ha`i'0X==395 | ha`i'0X==396 | ha`i'0X==397 | ha`i'0X==491 | ha`i'0X==492 | ha`i'0X==493 | ha`i'0X==494 | ha`i'0X==495 | ha`i'0X==496 | ha`i'0X==497 | ha`i'0X==197) for num 10/96: gen av12_`i'_X=15 if (ha`i'X==191 | ha`i'X==192 | ha`i'X==193 | ha`i'X==194 | ha`i'X==195 | ha`i'X==196 | ha`i'X==291 | ha`i'X==292 | ha`i'X==293 | ha`i'X==294 | ha`i'X==295 | ha`i'X==296 | ha`i'X==297 | ha`i'X==391 | ha`i'X==392 | ha`i'X==393 | ha`i'X==394 | ha`i'X==395 | ha`i'X==396 | ha`i'X==397 | ha`i'X==491 | ha`i'X==492 | ha`i'X==493 | ha`i'X==494 | ha`i'X==495 | ha`i'X==496 | ha`i'X==497 | ha`i'X==197) egen av12_`i'=rsum(av12_`i'_*) drop av12_`i'_* local i=`i'+1 } ** AV 13** local i=1 while `i'<8{ for num 1/9: gen av13_`i'_X=15 if (ha`i'0X==400 | ha`i'0X==480 | ha`i'0X==401) for num 10/96: gen av13_`i'_X=15 if (ha`i'X==400 | ha`i'X==480 | ha`i'X==401) egen av13_`i'=rsum(av13_`i'_*) drop av13_`i'_* local i=`i'+1 } ** AV 14** local i=1 while `i'<8{ for num 1/9: gen av14_`i'_X=15 if (ha`i'0X==320 | ha`i'0X==330 | ha`i'0X==410) for num 10/96: gen av14_`i'_X=15 if (ha`i'X==320 | ha`i'X==330 | ha`i'X==410) egen av14_`i'=rsum(av14_`i'_*) drop av14_`i'_* local i=`i'+1 } ** AV 15** local i=1 while `i'<8{ for num 1/9: gen av15_`i'_X=15 if (ha`i'0X==430) for num 10/96: gen av15_`i'_X=15 if (ha`i'X==430) egen av15_`i'=rsum(av15_`i'_*) drop av15_`i'_* local i=`i'+1 } ** AV 16** local i=1 while `i'<8{ for num 1/9: gen av16_`i'_X=15 if (ha`i'0X==450 | ha`i'0X==460 | ha`i'0X==470 | ha`i'0X==471) for num 10/96: gen av16_`i'_X=15 if (ha`i'X==450 | ha`i'X==460 | ha`i'X==470 | ha`i'X==471) egen av16_`i'=rsum(av16_`i'_*) drop av16_`i'_* local i=`i'+1 } ** AV 17** local i=1 while `i'<8{ for num 1/9: gen av17_`i'_X=15 if (ha`i'0X==691 | ha`i'0X==692 | ha`i'0X==693 | ha`i'0X==694 | ha`i'0X==695 | ha`i'0X==696 | ha`i'0X==697 | ha`i'0X==791 | ha`i'0X==792 | ha`i'0X==793 | ha`i'0X==794 | ha`i'0X==795 | ha`i'0X==796 | ha`i'0X==797 | ha`i'0X==891 | ha`i'0X==892 | ha`i'0X==893 | ha`i'0X==894 | ha`i'0X==895 | ha`i'0X==896 | ha`i'0X==897) for num 10/96: gen av17_`i'_X=15 if (ha`i'X==691 | ha`i'X==692 | ha`i'X==693 | ha`i'X==694 | ha`i'X==695 | ha`i'X==696 | ha`i'X==697 | ha`i'X==791 | ha`i'X==792 | ha`i'X==793 | ha`i'X==794 | ha`i'X==795 | ha`i'X==796 | ha`i'X==797 | ha`i'X==891 | ha`i'X==892 | ha`i'X==893 | ha`i'X==894 | ha`i'X==895 | ha`i'X==896 | ha`i'X==897) egen av17_`i'=rsum(av17_`i'_*) drop av17_`i'_* local i=`i'+1 } ** AV 18** local i=1 while `i'<8{ for num 1/9: gen av18_`i'_X=15 if (ha`i'0X==711 | ha`i'0X==740 | ha`i'0X==830 | ha`i'0X==580) for num 10/96: gen av18_`i'_X=15 if (ha`i'X==711 | ha`i'X==740 | ha`i'X==830 | ha`i'X==580) egen av18_`i'=rsum(av18_`i'_*) drop av18_`i'_* local i=`i'+1 } ** AV 19** local i=1 while `i'<8{ for num 1/9: gen av19_`i'_X=15 if (ha`i'0X==800 | ha`i'0X==810) for num 10/96: gen av19_`i'_X=15 if (ha`i'X==800 | ha`i'X==810) egen av19_`i'=rsum(av19_`i'_*) drop av19_`i'_* local i=`i'+1 } ** AV 20 ** local i=1 while `i'<8{ for num 1/9: gen av20_`i'_X=15 if (ha`i'0X==700) for num 10/96: gen av20_`i'_X=15 if (ha`i'X==700) egen av20_`i'=rsum(av20_`i'_*) drop av20_`i'_* local i=`i'+1 } ** AV 21 ** local i=1 while `i'<8{ for num 1/9: gen av21_`i'_X=15 if (ha`i'0X==820) for num 10/96: gen av21_`i'_X=15 if (ha`i'X==820) egen av21_`i'=rsum(av21_`i'_*) drop av21_`i'_* local i=`i'+1 } ** AV 22 ** local i=1 while `i'<8{ for num 1/9: gen av22_`i'_X=15 if (ha`i'0X==640 | ha`i'0X==650) for num 10/96: gen av22_`i'_X=15 if (ha`i'X==640 | ha`i'X==650) egen av22_`i'=rsum(av22_`i'_*) drop av22_`i'_* local i=`i'+1 } ** AV 23 ** local i=1 while `i'<8{ for num 1/9: gen av23_`i'_X=15 if (ha`i'0X==600 | ha`i'0X==610 | ha`i'0X==620 | ha`i'0X==655 | ha`i'0X==907) for num 10/96: gen av23_`i'_X=15 if (ha`i'X==600 | ha`i'X==610 | ha`i'X==620 | ha`i'X==655 | ha`i'X==907) egen av23_`i'=rsum(av23_`i'_*) drop av23_`i'_* local i=`i'+1 } ** AV 24 ** local i=1 while `i'<8{ for num 1/9: gen av24_`i'_X=15 if (ha`i'0X==710 | ha`i'0X==720 | ha`i'0X==730) for num 10/96: gen av24_`i'_X=15 if (ha`i'X==710 | ha`i'X==720 | ha`i'X==730) egen av24_`i'=rsum(av24_`i'_*) drop av24_`i'_* local i=`i'+1 } ** AV 25 ** local i=1 while `i'<8{ for num 1/9: gen av25_`i'_X=15 if (ha`i'0X==760 | ha`i'0X==780 | ha`i'0X==781) for num 10/96: gen av25_`i'_X=15 if (ha`i'X==760 | ha`i'X==780 | ha`i'X==781) egen av25_`i'=rsum(av25_`i'_*) drop av25_`i'_* local i=`i'+1 } ** AV 26 ** local i=1 while `i'<8{ for num 1/9: gen av26_`i'_X=15 if (ha`i'0X==770) for num 10/96: gen av26_`i'_X=15 if (ha`i'X==770) egen av26_`i'=rsum(av26_`i'_*) drop av26_`i'_* local i=`i'+1 } ** AV 27 ** for num 1/7: gen av27_X=0 ** AV 28 ** local i=1 while `i'<8{ for num 1/9: gen av28_`i'_X=15 if (ha`i'0X==440) for num 10/96: gen av28_`i'_X=15 if (ha`i'X==440) egen av28_`i'=rsum(av28_`i'_*) drop av28_`i'_* local i=`i'+1 } ** AV 29 ** local i=1 while `i'<8{ for num 1/9: gen av29_`i'_X=15 if (ha`i'0X==750) for num 10/96: gen av29_`i'_X=15 if (ha`i'X==750) egen av29_`i'=rsum(av29_`i'_*) drop av29_`i'_* local i=`i'+1 } ** AV 30 ** local i=1 while `i'<8{ for num 1/9: gen av30_`i'_X=15 if (ha`i'0X>=909 & ha`i'0X<=916) for num 10/96: gen av30_`i'_X=15 if (ha`i'X>=909 & ha`i'X<=916) egen av30_`i'=rsum(av30_`i'_*) drop av30_`i'_* local i=`i'+1 } ** AV 31 ** local i=1 while `i'<8{ for num 1/9: gen av31_`i'_X=15 if (ha`i'0X>=917 & ha`i'0X<=928) for num 10/96: gen av31_`i'_X=15 if (ha`i'X>=917 & ha`i'X<=928) egen av31_`i'=rsum(av31_`i'_*) drop av31_`i'_* local i=`i'+1 } ** AV 32 ** local i=1 while `i'<8{ for num 1/9: gen av32_`i'_X=15 if (ha`i'0X==929) for num 10/96: gen av32_`i'_X=15 if (ha`i'X==929) egen av32_`i'=rsum(av32_`i'_*) drop av32_`i'_* local i=`i'+1 } ** AV 33 ** local i=1 while `i'<8{ for num 1/9: gen av33_`i'_X=15 if (ha`i'0X==501 | ha`i'0X==511 | ha`i'0X==521 | ha`i'0X==531 | ha`i'0X==575) for num 10/96: gen av33_`i'_X=15 if (ha`i'X==501 | ha`i'X==511 | ha`i'X==521 | ha`i'X==531 | ha`i'X==575) egen av33_`i'=rsum(av33_`i'_*) drop av33_`i'_* local i=`i'+1 } ** AV 34 ** local i=1 while `i'<8{ for num 1/9: gen av34_`i'_X=15 if (ha`i'0X==930) for num 10/96: gen av34_`i'_X=15 if (ha`i'X==930) egen av34_`i'=rsum(av34_`i'_*) drop av34_`i'_* local i=`i'+1 } ** AV 35 ** local i=1 while `i'<8{ for num 1/9: gen av35_`i'_X=15 if (ha`i'0X>=937 & ha`i'0X<=990) | (ha`i'0X>=931 & ha`i'0X<=936) for num 10/96: gen av35_`i'_X=15 if (ha`i'X>=937 & ha`i'X<=990) | (ha`i'X>=931 & ha`i'X<=936) egen av35_`i'=rsum(av35_`i'_*) drop av35_`i'_* local i=`i'+1 } ** AV 36 ** local i=1 while `i'<8{ for num 1/9: gen av36_`i'_X=15 if (ha`i'0X==908) for num 10/96: gen av36_`i'_X=15 if (ha`i'X==908) egen av36_`i'=rsum(av36_`i'_*) drop av36_`i'_* local i=`i'+1 } ** AV 37 ** local i=1 while `i'<8{ for num 1/9: gen av37_`i'_X=15 if (ha`i'0X==903 | ha`i'0X==905 | ha`i'0X==906) for num 10/96: gen av37_`i'_X=15 if (ha`i'X==903 | ha`i'X==905 | ha`i'X==906) egen av37_`i'=rsum(av37_`i'_*) drop av37_`i'_* local i=`i'+1 } ** AV 38 ** local i=1 while `i'<8{ for num 1/9: gen av38_`i'_X=15 if (ha`i'0X==751) for num 10/96: gen av38_`i'_X=15 if (ha`i'X==751) egen av38_`i'=rsum(av38_`i'_*) drop av38_`i'_* local i=`i'+1 } ** AV 39 ** local i=1 while `i'<8{ for num 1/9: gen av39_`i'_X=15 if (ha`i'0X==841 | ha`i'0X==842 | ha`i'0X==843) for num 10/96: gen av39_`i'_X=15 if (ha`i'X==841 | ha`i'X==842 | ha`i'X==843) egen av39_`i'=rsum(av39_`i'_*) drop av39_`i'_* local i=`i'+1 } ** AV 40 ** local i=1 while `i'<8{ for num 1/9: gen av40_`i'_X=15 if (ha`i'0X==840 | ha`i'0X==850 | ha`i'0X==860 | ha`i'0X==870 | ha`i'0X==871 | ha`i'0X==872 | ha`i'0X==873 | ha`i'0X==881 | ha`i'0X==882 | ha`i'0X==901 | ha`i'0X==902 | ha`i'0X==904) for num 10/96: gen av40_`i'_X=15 if (ha`i'X==840 | ha`i'X==850 | ha`i'X==860 | ha`i'X==870 | ha`i'X==871 | ha`i'X==872 | ha`i'X==873 | ha`i'X==881 | ha`i'X==882 | ha`i'X==901 | ha`i'X==902 | ha`i'X==904) egen av40_`i'=rsum(av40_`i'_*) drop av40_`i'_* local i=`i'+1 } ** AV 41 ** local i=1 while `i'<8{ for num 1/9: gen av41_`i'_X=15 if (ha`i'0X==998) for num 10/96: gen av41_`i'_X=15 if (ha`i'X==998) egen av41_`i'=rsum(av41_`i'_*) drop av41_`i'_* local i=`i'+1 } ** VBLE TO CHECK THAT TIME USE IS 1440 MINUTES ** local i=1 while `i'<8{ gen tottime_`i'=av1_`i' +av2_`i' +av3_`i' +av4_`i' +av5_`i' +av6_`i' +av7_`i' +av8_`i' +av9_`i' +av10_`i' +av11_`i' +av12_`i' +av13_`i' +av14_`i' +av15_`i' +av16_`i' +av17_`i' +av18_`i' +av19_`i' +av20_`i' +av21_`i' +av22_`i' +av23_`i' +av24_`i' +av25_`i' +av26_`i' +av27_`i' +av28_`i' +av29_`i' +av30_`i' +av31_`i' +av32_`i' +av33_`i' +av34_`i' +av35_`i' +av36_`i' +av37_`i' +av38_`i' +av39_`i' +av40_`i' +av41_`i' local i=`i'+1 } **WE CREATE THE 69 ACTIVITY CODES ********************************* *MAIN 1 ******* local i=1 while `i'<8{ for num 1/9: gen main1_`i'_X=15 if (ha`i'0X==401) for num 10/96: gen main1_`i'_X=15 if (ha`i'X==401) egen main1_`i'=rsum(main1_`i'_*) drop main1_`i'_* local i=`i'+1 } *MAIN 2 ******* local i=1 while `i'<8{ for num 1/9: gen main2_`i'_X=15 if (ha`i'0X==450 | ha`i'0X==460 | ha`i'0X==470) for num 10/96: gen main2_`i'_X=15 if (ha`i'X==450 | ha`i'X==460 | ha`i'X==470) egen main2_`i'=rsum(main2_`i'_*) drop main2_`i'_* local i=`i'+1 } *MAIN 3 ******* local i=1 while `i'<8{ for num 1/9: gen main3_`i'_X=15 if (ha`i'0X==471) for num 10/96: gen main3_`i'_X=15 if (ha`i'X==471) egen main3_`i'=rsum(main3_`i'_*) drop main3_`i'_* local i=`i'+1 } *MAIN 4 ******* local i=1 while `i'<8{ for num 1/9: gen main4_`i'_X=15 if (ha`i'0X==400 | ha`i'0X==480 | ha`i'0X==410) for num 10/96: gen main4_`i'_X=15 if (ha`i'X==400 | ha`i'X==480 | ha`i'X==410) egen main4_`i'=rsum(main4_`i'_*) drop main4_`i'_* local i=`i'+1 } *MAIN 5 ******* local i=1 while `i'<8{ for num 1/9: gen main5_`i'_X=15 if (ha`i'0X==060) for num 10/96: gen main5_`i'_X=15 if (ha`i'X==060) egen main5_`i'=rsum(main5_`i'_*) drop main5_`i'_* local i=`i'+1 } *MAIN 6 ******* local i=1 while `i'<8{ for num 1/9: gen main6_`i'_X=15 if (ha`i'0X==430) for num 10/96: gen main6_`i'_X=15 if (ha`i'X==430) egen main6_`i'=rsum(main6_`i'_*) drop main6_`i'_* local i=`i'+1 } *MAIN 7 ******* local i=1 while `i'<8{ for num 1/9: gen main7_`i'_X=15 if (ha`i'0X==0 | ha`i'0X==20 | ha`i'0X==55) for num 10/96: gen main7_`i'_X=15 if (ha`i'X==0 | ha`i'X==20 | ha`i'X==55) egen main7_`i'=rsum(main7_`i'_*) drop main7_`i'_* local i=`i'+1 } *MAIN 8 ******* local i=1 while `i'<8{ for num 1/9: gen main8_`i'_X=15 if (ha`i'0X==10) for num 10/96: gen main8_`i'_X=15 if (ha`i'X==10) egen main8_`i'=rsum(main8_`i'_*) drop main8_`i'_* local i=`i'+1 } *MAIN 9 ******* local i=1 while `i'<8{ for num 1/9: gen main9_`i'_X=15 if (ha`i'0X==50) for num 10/96: gen main9_`i'_X=15 if (ha`i'X==50) egen main9_`i'=rsum(main9_`i'_*) drop main9_`i'_* local i=`i'+1 } *MAIN 10 ******** for num 1/7: gen main10_X=0 *MAIN 11 ******** local i=1 while `i'<8{ for num 1/9: gen main11_`i'_X=15 if (ha`i'0X>=31 & ha`i'0X<=37) for num 10/96: gen main11_`i'_X=15 if (ha`i'X>=31 & ha`i'X<=37) egen main11_`i'=rsum(main11_`i'_*) drop main11_`i'_* local i=`i'+1 } *MAIN 12 ******** local i=1 while `i'<8{ for num 1/9: gen main12_`i'_X=15 if (ha`i'0X==80) for num 10/96: gen main12_`i'_X=15 if (ha`i'X==80) egen main12_`i'=rsum(main12_`i'_*) drop main12_`i'_* local i=`i'+1 } *MAIN 13 ******** local i=1 while `i'<8{ for num 1/9: gen main13_`i'_X=15 if (ha`i'0X==40 | ha`i'0X==70) for num 10/96: gen main13_`i'_X=15 if (ha`i'X==40 | ha`i'X==70) egen main13_`i'=rsum(main13_`i'_*) drop main13_`i'_* local i=`i'+1 } *MAIN 14 ******** for num 1/7: gen main14_X=0 *MAIN 15 ******** local i=1 while `i'<8{ for num 1/9: gen main15_`i'_X=15 if (ha`i'0X==500) for num 10/96: gen main15_`i'_X=15 if (ha`i'X==500) egen main15_`i'=rsum(main15_`i'_*) drop main15_`i'_* local i=`i'+1 } *MAIN 16 ******** local i=1 while `i'<8{ for num 1/9: gen main16_`i'_X=15 if (ha`i'0X==501 | ha`i'0X==511 | ha`i'0X==521 | ha`i'0X==531 | ha`i'0X==541 | ha`i'0X==575) for num 10/96: gen main16_`i'_X=15 if (ha`i'X==501 | ha`i'X==511 | ha`i'X==521 | ha`i'X==531 | ha`i'X==541 | ha`i'X==575) egen main16_`i'=rsum(main16_`i'_*) drop main16_`i'_* local i=`i'+1 } *MAIN 17 ******** local i=1 while `i'<8{ for num 1/9: gen main17_`i'_X=15 if (ha`i'0X==510 | ha`i'0X==520 | ha`i'0X==530 | ha`i'0X==550 | ha`i'0X==560 | ha`i'0X==570) for num 10/96: gen main17_`i'_X=15 if (ha`i'X==510 | ha`i'X==520 | ha`i'X==530 | ha`i'X==550 | ha`i'X==560 | ha`i'X==570) egen main17_`i'=rsum(main17_`i'_*) drop main17_`i'_* local i=`i'+1 } *MAIN 18 ******** local i=1 while `i'<8{ for num 1/9: gen main18_`i'_X=15 if (ha`i'0X==100) for num 10/96: gen main18_`i'_X=15 if (ha`i'X==100) egen main18_`i'=rsum(main18_`i'_*) drop main18_`i'_* local i=`i'+1 } *MAIN 19 ******** local i=1 while `i'<8{ for num 1/9: gen main19_`i'_X=15 if (ha`i'0X==110 | ha`i'0X==111) for num 10/96: gen main19_`i'_X=15 if (ha`i'X==110 | ha`i'X==111) egen main19_`i'=rsum(main19_`i'_*) drop main19_`i'_* local i=`i'+1 } *MAIN 20 ******** local i=1 while `i'<8{ for num 1/9: gen main20_`i'_X=15 if (ha`i'0X==121 | ha`i'0X==122 | ha`i'0X==123 | ha`i'0X==124 | ha`i'0X==125) for num 10/96: gen main20_`i'_X=15 if (ha`i'X==121 | ha`i'X==122 | ha`i'X==123 | ha`i'X==124 | ha`i'X==125) egen main20_`i'=rsum(main20_`i'_*) drop main20_`i'_* local i=`i'+1 } *MAIN 21 ******** local i=1 while `i'<8{ for num 1/9: gen main21_`i'_X=15 if (ha`i'0X==141 | ha`i'0X==142 | ha`i'0X==150) for num 10/96: gen main21_`i'_X=15 if (ha`i'X==141 | ha`i'X==142 | ha`i'X==150) egen main21_`i'=rsum(main21_`i'_*) drop main21_`i'_* local i=`i'+1 } *MAIN 22 ******** local i=1 while `i'<8{ for num 1/9: gen main22_`i'_X=15 if (ha`i'0X==130 | ha`i'0X==131 | ha`i'0X==132 | ha`i'0X==160 | ha`i'0X==172) for num 10/96: gen main22_`i'_X=15 if (ha`i'X==130 | ha`i'X==131 | ha`i'X==132 | ha`i'X==160 | ha`i'X==172) egen main22_`i'=rsum(main22_`i'_*) drop main22_`i'_* local i=`i'+1 } *MAIN 23 ******** local i=1 while `i'<8{ for num 1/9: gen main23_`i'_X=15 if (ha`i'0X==180) for num 10/96: gen main23_`i'_X=15 if (ha`i'X==180) egen main23_`i'=rsum(main23_`i'_*) drop main23_`i'_* local i=`i'+1 } *MAIN 24 ******** local i=1 while `i'<8{ for num 1/9: gen main24_`i'_X=15 if (ha`i'0X==301 | ha`i'0X==302 | ha`i'0X==303 | ha`i'0X==310 | ha`i'0X==311 | ha`i'0X==312 | ha`i'0X==313 | ha`i'0X==314 | ha`i'0X==315 | ha`i'0X==316) for num 10/96: gen main24_`i'_X=15 if (ha`i'X==301 | ha`i'X==302 | ha`i'X==303 | ha`i'X==310 | ha`i'X==311 | ha`i'X==312 | ha`i'X==313 | ha`i'X==314 | ha`i'X==315 | ha`i'X==316) egen main24_`i'=rsum(main24_`i'_*) drop main24_`i'_* local i=`i'+1 } *MAIN 25 ******** local i=1 while `i'<8{ for num 1/9: gen main25_`i'_X=15 if (ha`i'0X==320 | ha`i'0X==330) for num 10/96: gen main25_`i'_X=15 if (ha`i'X==320 | ha`i'X==330) egen main25_`i'=rsum(main25_`i'_*) drop main25_`i'_* local i=`i'+1 } *MAIN 26 ******** local i=1 while `i'<8{ for num 1/9: gen main26_`i'_X=15 if (ha`i'0X==340 | ha`i'0X==341 | ha`i'0X==342 | ha`i'0X==350 | ha`i'0X==351 | ha`i'0X==360 | ha`i'0X==370) for num 10/96: gen main26_`i'_X=15 if (ha`i'X==340 | ha`i'X==341 | ha`i'X==342 | ha`i'X==350 | ha`i'X==351 | ha`i'X==360 | ha`i'X==370) egen main26_`i'=rsum(main26_`i'_*) drop main26_`i'_* local i=`i'+1 } *MAIN 27 ******** local i=1 while `i'<8{ for num 1/9: gen main27_`i'_X=15 if (ha`i'0X==171) for num 10/96: gen main27_`i'_X=15 if (ha`i'X==171) egen main27_`i'=rsum(main27_`i'_*) drop main27_`i'_* local i=`i'+1 } *MAIN 28 ******** local i=1 while `i'<8{ for num 1/9: gen main28_`i'_X=15 if (ha`i'0X==200 | ha`i'0X==210 | ha`i'0X==260) for num 10/96: gen main28_`i'_X=15 if (ha`i'X==200 | ha`i'X==210 | ha`i'X==260) egen main28_`i'=rsum(main28_`i'_*) drop main28_`i'_* local i=`i'+1 } *MAIN 29 ******** local i=1 while `i'<8{ for num 1/9: gen main29_`i'_X=15 if (ha`i'0X==220) for num 10/96: gen main29_`i'_X=15 if (ha`i'X==220) egen main29_`i'=rsum(main29_`i'_*) drop main29_`i'_* local i=`i'+1 } *MAIN 30 ******** local i=1 while `i'<8{ for num 1/9: gen main30_`i'_X=15 if (ha`i'0X==230 | ha`i'0X==240) for num 10/96: gen main30_`i'_X=15 if (ha`i'X==230 | ha`i'X==240) egen main30_`i'=rsum(main30_`i'_*) drop main30_`i'_* local i=`i'+1 } *MAIN 31 ******** local i=1 while `i'<8{ for num 1/9: gen main31_`i'_X=15 if (ha`i'0X==250 | ha`i'0X==270) for num 10/96: gen main31_`i'_X=15 if (ha`i'X==250 | ha`i'X==270) egen main31_`i'=rsum(main31_`i'_*) drop main31_`i'_* local i=`i'+1 } *MAIN 32 ******** local i=1 while `i'<8{ for num 1/9: gen main32_`i'_X=15 if (ha`i'0X==420) for num 10/96: gen main32_`i'_X=15 if (ha`i'X==420) egen main32_`i'=rsum(main32_`i'_*) drop main32_`i'_* local i=`i'+1 } *MAIN 33 ******** local i=1 while `i'<8{ for num 1/9: gen main33_`i'_X=15 if (ha`i'0X==600 | ha`i'0X==610 | ha`i'0X==620 | ha`i'0X==630 | ha`i'0X==655 | ha`i'0X==666 | ha`i'0X==907) for num 10/96: gen main33_`i'_X=15 if (ha`i'X==600 | ha`i'X==610 | ha`i'X==620 | ha`i'X==630 | ha`i'X==655 | ha`i'X==666 | ha`i'X==907) egen main33_`i'=rsum(main33_`i'_*) drop main33_`i'_* local i=`i'+1 } *MAIN 34 ******** local i=1 while `i'<8{ for num 1/9: gen main34_`i'_X=15 if (ha`i'0X==640 | ha`i'0X==650) for num 10/96: gen main34_`i'_X=15 if (ha`i'X==640 | ha`i'X==650) egen main34_`i'=rsum(main34_`i'_*) drop main34_`i'_* local i=`i'+1 } *MAIN 35 ******** for num 1/7: gen main35_X=0 *MAIN 36 ******** local i=1 while `i'<8{ for num 1/9: gen main36_`i'_X=15 if (ha`i'0X==700) for num 10/96: gen main36_`i'_X=15 if (ha`i'X==700) egen main36_`i'=rsum(main36_`i'_*) drop main36_`i'_* local i=`i'+1 } *MAIN 37 ******** local i=1 while `i'<8{ for num 1/9: gen main37_`i'_X=15 if (ha`i'0X==720 | ha`i'0X==730) for num 10/96: gen main37_`i'_X=15 if (ha`i'X==720 | ha`i'X==730) egen main37_`i'=rsum(main37_`i'_*) drop main37_`i'_* local i=`i'+1 } *MAIN 38 ******** local i=1 while `i'<8{ for num 1/9: gen main38_`i'_X=15 if (ha`i'0X==710 | ha`i'0X==711 | ha`i'0X==740 | ha`i'0X==781 | ha`i'0X==830 | ha`i'0X==580) for num 10/96: gen main38_`i'_X=15 if (ha`i'X==710 | ha`i'X==711 | ha`i'X==740 | ha`i'X==781 | ha`i'X==830 | ha`i'X==580) egen main38_`i'=rsum(main38_`i'_*) drop main38_`i'_* local i=`i'+1 } *MAIN 39 ******** local i=1 while `i'<8{ for num 1/9: gen main39_`i'_X=15 if (ha`i'0X==770 | ha`i'0X==440) for num 10/96: gen main39_`i'_X=15 if (ha`i'X==770 | ha`i'X==440) egen main39_`i'=rsum(main39_`i'_*) drop main39_`i'_* local i=`i'+1 } *MAIN 40 ******** local i=1 while `i'<8{ for num 1/9: gen main40_`i'_X=15 if (ha`i'0X==760 | ha`i'0X==780) for num 10/96: gen main40_`i'_X=15 if (ha`i'X==760 | ha`i'X==780) egen main40_`i'=rsum(main40_`i'_*) drop main40_`i'_* local i=`i'+1 } *MAIN 41 ******** local i=1 while `i'<8{ for num 1/9: gen main41_`i'_X=15 if ha`i'0X==782 for num 10/96: gen main41_`i'_X=15 if ha`i'X==782 egen main41_`i'=rsum(main41_`i'_*) drop main41_`i'_* local i=`i'+1 } *MAIN 42 ******** local i=1 while `i'<8{ for num 1/9: gen main42_`i'_X=15 if (ha`i'0X==800 | ha`i'0X==820) for num 10/96: gen main42_`i'_X=15 if (ha`i'X==800 | ha`i'X==820) egen main42_`i'=rsum(main42_`i'_*) drop main42_`i'_* local i=`i'+1 } *MAIN 43 ******** for num 1/7: gen main43_X=0 *MAIN 44 ******** for num 1/7: gen main44_X=0 *MAIN 45 ******** local i=1 while `i'<8{ for num 1/9: gen main45_`i'_X=15 if (ha`i'0X==881) for num 10/96: gen main45_`i'_X=15 if (ha`i'X==881) egen main45_`i'=rsum(main45_`i'_*) drop main45_`i'_* local i=`i'+1 } *MAIN 46 ******** local i=1 while `i'<8{ for num 1/9: gen main46_`i'_X=15 if (ha`i'0X==151 | ha`i'0X==810) for num 10/96: gen main46_`i'_X=15 if (ha`i'X==151 | ha`i'X==810) egen main46_`i'=rsum(main46_`i'_*) drop main46_`i'_* local i=`i'+1 } *MAIN 47 ******** for num 1/7: gen main47_X=0 *MAIN 48 ******** local i=1 while `i'<8{ for num 1/9: gen main48_`i'_X=15 if (ha`i'0X==750 | ha`i'0X==751) for num 10/96: gen main48_`i'_X=15 if (ha`i'X==750 | ha`i'X==751) egen main48_`i'=rsum(main48_`i'_*) drop main48_`i'_* local i=`i'+1 } *MAIN 49 ******** local i=1 while `i'<8{ for num 1/9: gen main49_`i'_X=15 if (ha`i'0X==903 | ha`i'0X==905 | ha`i'0X==906) for num 10/96: gen main49_`i'_X=15 if (ha`i'X==903 | ha`i'X==905 | ha`i'X==906) egen main49_`i'=rsum(main49_`i'_*) drop main49_`i'_* local i=`i'+1 } *MAIN 50 ******** local i=1 while `i'<8{ for num 1/9: gen main50_`i'_X=15 if (ha`i'0X==870 | ha`i'0X==871 | ha`i'0X==872 | ha`i'0X==873) for num 10/96: gen main50_`i'_X=15 if (ha`i'X==870 | ha`i'X==871 | ha`i'X==872 | ha`i'X==873) egen main50_`i'=rsum(main50_`i'_*) drop main50_`i'_* local i=`i'+1 } *MAIN 51 ******** local i=1 while `i'<8{ for num 1/9: gen main51_`i'_X=15 if (ha`i'0X==882) for num 10/96: gen main51_`i'_X=15 if (ha`i'X==882) egen main51_`i'=rsum(main51_`i'_*) drop main51_`i'_* local i=`i'+1 } *MAIN 52 ******** local i=1 while `i'<8{ for num 1/9: gen main52_`i'_X=15 if (ha`i'0X==860) for num 10/96: gen main52_`i'_X=15 if (ha`i'X==860) egen main52_`i'=rsum(main52_`i'_*) drop main52_`i'_* local i=`i'+1 } *MAIN 53 ******** local i=1 while `i'<8{ for num 1/9: gen main53_`i'_X=15 if (ha`i'0X==904) for num 10/96: gen main53_`i'_X=15 if (ha`i'X==904) egen main53_`i'=rsum(main53_`i'_*) drop main53_`i'_* local i=`i'+1 } *MAIN 54 ******** local i=1 while `i'<8{ for num 1/9: gen main54_`i'_X=15 if (ha`i'0X==840 | ha`i'0X==841 | ha`i'0X==842 | ha`i'0X==843 | ha`i'0X==850) for num 10/96: gen main54_`i'_X=15 if (ha`i'X==840 | ha`i'X==841 | ha`i'X==842 | ha`i'X==843 | ha`i'X==850) egen main54_`i'=rsum(main54_`i'_*) drop main54_`i'_* local i=`i'+1 } *MAIN 55 ******** local i=1 while `i'<8{ for num 1/9: gen main55_`i'_X=15 if (ha`i'0X==908) for num 10/96: gen main55_`i'_X=15 if (ha`i'X==908) egen main55_`i'=rsum(main55_`i'_*) drop main55_`i'_* local i=`i'+1 } *MAIN 56 ******** local i=1 while `i'<8{ for num 1/9: gen main56_`i'_X=15 if (ha`i'0X>=930 & ha`i'0X<=990) for num 10/96: gen main56_`i'_X=15 if (ha`i'X>=930 & ha`i'X<=990) egen main56_`i'=rsum(main56_`i'_*) drop main56_`i'_* local i=`i'+1 } *MAIN 57 ******** local i=1 while `i'<8{ for num 1/9: gen main57_`i'_X=15 if (ha`i'0X==929) for num 10/96: gen main57_`i'_X=15 if (ha`i'X==929) egen main57_`i'=rsum(main57_`i'_*) drop main57_`i'_* local i=`i'+1 } *MAIN 58 ******** local i=1 while `i'<8{ for num 1/9: gen main58_`i'_X=15 if (ha`i'0X>=909 & ha`i'0X<=916) for num 10/96: gen main58_`i'_X=15 if (ha`i'X>=909 & ha`i'X<=916) egen main58_`i'=rsum(main58_`i'_*) drop main58_`i'_* local i=`i'+1 } *MAIN 59 ******** local i=1 while `i'<8{ for num 1/9: gen main59_`i'_X=15 if (ha`i'0X>=917 & ha`i'0X<=928) for num 10/96: gen main59_`i'_X=15 if (ha`i'X>=917 & ha`i'X<=928) egen main59_`i'=rsum(main59_`i'_*) drop main59_`i'_* local i=`i'+1 } *MAIN 60 ******** local i=1 while `i'<8{ for num 1/9: gen main60_`i'_X=15 if (ha`i'0X==901) for num 10/96: gen main60_`i'_X=15 if (ha`i'X==901) egen main60_`i'=rsum(main60_`i'_*) drop main60_`i'_* local i=`i'+1 } *MAIN 61 ******** local i=1 while `i'<8{ for num 1/9: gen main61_`i'_X=15 if (ha`i'0X==902) for num 10/96: gen main61_`i'_X=15 if (ha`i'X==902) egen main61_`i'=rsum(main61_`i'_*) drop main61_`i'_* local i=`i'+1 } *MAIN 62 ******** for num 1/7: gen main62_X=0 *MAIN 63 ******** local i=1 while `i'<8{ for num 1/9: gen main63_`i'_X=15 if (ha`i'0X>=91 & ha`i'0X<=97) for num 10/96: gen main63_`i'_X=15 if (ha`i'X>=91 & ha`i'X<=97) egen main63_`i'=rsum(main63_`i'_*) drop main63_`i'_* local i=`i'+1 } *MAIN 64 ******** local i=1 while `i'<8{ for num 1/9: gen main64_`i'_X=15 if (ha`i'0X>=591 & ha`i'0X<=597) for num 10/96: gen main64_`i'_X=15 if (ha`i'X>=591 & ha`i'X<=597) egen main64_`i'=rsum(main64_`i'_*) drop main64_`i'_* local i=`i'+1 } *MAIN 65 ******** local i=1 while `i'<8{ for num 1/9: gen main65_`i'_X=15 if (ha`i'0X==691 | ha`i'0X==692 | ha`i'0X==693 | ha`i'0X==694 | ha`i'0X==695 | ha`i'0X==696 | ha`i'0X==697) for num 10/96: gen main65_`i'_X=15 if (ha`i'X==691 | ha`i'X==692 | ha`i'X==693 | ha`i'X==694 | ha`i'X==695 | ha`i'X==696 | ha`i'X==697) egen main65_`i'=rsum(main65_`i'_*) drop main65_`i'_* local i=`i'+1 } *MAIN 66 ******** local i=1 while `i'<8{ for num 1/9: gen main66_`i'_X=15 if (ha`i'0X==291 | ha`i'0X==292 | ha`i'0X==293 | ha`i'0X==294 | ha`i'0X==295 | ha`i'0X==296 | ha`i'0X==297) for num 10/96: gen main66_`i'_X=15 if (ha`i'X==291 | ha`i'X==292 | ha`i'X==293 | ha`i'X==294 | ha`i'X==295 | ha`i'X==296 | ha`i'X==297) egen main66_`i'=rsum(main66_`i'_*) drop main66_`i'_* local i=`i'+1 } *MAIN 67 ******** local i=1 while `i'<8{ for num 1/9: gen main67_`i'_X=15 if (ha`i'0X==191 | ha`i'0X==192 | ha`i'0X==193 | ha`i'0X==194 | ha`i'0X==195 | ha`i'0X==196 | ha`i'0X==197 | ha`i'0X==391 | ha`i'0X==392 | ha`i'0X==393 | ha`i'0X==394 | ha`i'0X==395 | ha`i'0X==396 | ha`i'0X==397 | ha`i'0X==491 | ha`i'0X==492 | ha`i'0X==493 | ha`i'0X==494 | ha`i'0X==495 | ha`i'0X==496 | ha`i'0X==497) for num 10/96: gen main67_`i'_X=15 if (ha`i'X==191 | ha`i'X==192 | ha`i'X==193 | ha`i'X==194 | ha`i'X==195 | ha`i'X==196 | ha`i'X==197 | ha`i'X==391 | ha`i'X==392 | ha`i'X==393 | ha`i'X==394 | ha`i'X==395 | ha`i'X==396 | ha`i'X==397 | ha`i'X==491 | ha`i'X==492 | ha`i'X==493 | ha`i'X==494 | ha`i'X==495 | ha`i'X==496 | ha`i'X==497) egen main67_`i'=rsum(main67_`i'_*) drop main67_`i'_* local i=`i'+1 } *MAIN 68 ******** local i=1 while `i'<8{ for num 1/9: gen main68_`i'_X=15 if (ha`i'0X==791 | ha`i'0X==792 | ha`i'0X==793 | ha`i'0X==794 | ha`i'0X==795 | ha`i'0X==796 | ha`i'0X==797 | ha`i'0X==891 | ha`i'0X==892 | ha`i'0X==893 | ha`i'0X==894 | ha`i'0X==895 | ha`i'0X==896 | ha`i'0X==897) for num 10/96: gen main68_`i'_X=15 if (ha`i'X==791 | ha`i'X==792 | ha`i'X==793 | ha`i'X==794 | ha`i'X==795 | ha`i'X==796 | ha`i'X==797 | ha`i'X==891 | ha`i'X==892 | ha`i'X==893 | ha`i'X==894 | ha`i'X==895 | ha`i'X==896 | ha`i'X==897) egen main68_`i'=rsum(main68_`i'_*) drop main68_`i'_* local i=`i'+1 } *MAIN 69 ******** local i=1 while `i'<8{ for num 1/9: gen main69_`i'_X=15 if (ha`i'0X==998) for num 10/96: gen main69_`i'_X=15 if (ha`i'X==998) egen main69_`i'=rsum(main69_`i'_*) drop main69_`i'_* local i=`i'+1 } ***CHACK THAT ALL DIARIES SUM 1440 MINUTES ****************************************** local i=1 while `i'<8{ gen check_main`i'=main1_`i'+main2_`i'+main3_`i'+main4_`i'+main5_`i'+main6_`i'+main7_`i'+main8_`i'+main9_`i'+main10_`i'+main11_`i'+main12_`i'+main13_`i'+main14_`i'+main15_`i'+main16_`i'+main17_`i'+main18_`i'+main19_`i'+main20_`i'+main21_`i'+main22_`i'+main23_`i'+main24_`i'+main25_`i'+main26_`i'+main27_`i'+main28_`i'+main29_`i'+main30_`i'+main31_`i'+main32_`i'+main33_`i'+main34_`i'+main35_`i'+main36_`i'+main37_`i'+main38_`i'+main39_`i'+main40_`i'+main41_`i'+main42_`i'+main43_`i'+main44_`i'+main45_`i'+main46_`i'+main47_`i'+main48_`i'+main49_`i'+main50_`i'+main51_`i'+main52_`i'+main53_`i'+main54_`i'+main55_`i'+main56_`i'+main57_`i'+main58_`i'+main59_`i'+main60_`i'+main61_`i'+main62_`i'+main63_`i'+main64_`i'+main65_`i'+main66_`i'+main67_`i'+main68_`i'+main69_`i' local i=`i'+1 } **FINALLY, WE CREATE THE VARIABLE FOR THE TIME SPENT WITH SPOUSE/PARTNER ************************************************************************ **NO INFORMATION ON WHO ELSE WAS PRESENT DURING THE ACTIVITY. generate sppart=-9 *2+ OR MORE OF THESE BASIC ACTIVITIES MISSING: SLEEP OR REST, EATING OR DRINKING, PERSONAL CARE, TRAVEL/EXERCISE **************************************************************************************************************** ** eating_quality ** ******************** local i=1 while `i'<8{ for num 1/9: gen eating_quality_`i'_X=15 if (ha`i'0X==060 | ha`i'0X==100 | ha`i'0X==110 | ha`i'0X==111 | ha`i'0X==301 | ha`i'0X==303 | ha`i'0X==430 | ha`i'0X==440 | ha`i'0X==760 | ha`i'0X==770 | ha`i'0X==780) for num 10/96: gen eating_quality_`i'_X=15 if (ha`i'X==060 | ha`i'X==100 | ha`i'X==110 | ha`i'X==111 | ha`i'X==301 | ha`i'X==303 | ha`i'X==430 | ha`i'X==440 | ha`i'X==760 | ha`i'X==770 | ha`i'X==780) egen eating_quality_`i'=rsum(eating_quality_`i'_*) drop eating_quality_`i'_* local i=`i'+1 } ** sleeping_quality ** local i=1 while `i'<8{ for num 1/9: gen sleeping_quality_`i'_X=15 if (ha`i'0X==080 | ha`i'0X==450 | ha`i'0X==460 | ha`i'0X==470 | ha`i'0X==471 | ha`i'0X==908) for num 10/96: gen sleeping_quality_`i'_X=15 if (ha`i'X==080 | ha`i'X==450 | ha`i'X==460 | ha`i'X==470 | ha`i'X==471 | ha`i'X==908) egen sleeping_quality_`i'=rsum(sleeping_quality_`i'_*) drop sleeping_quality_`i'_* local i=`i'+1 } ** personal_quality ** local i=1 while `i'<8{ for num 1/9: gen personal_quality_`i'_X=15 if (ha`i'0X==400 | ha`i'0X==480 | ha`i'0X==320 | ha`i'0X==330 | ha`i'0X==401 | ha`i'0X==410) for num 10/96: gen personal_quality_`i'_X=15 if (ha`i'X==400 | ha`i'X==480 | ha`i'X==320 | ha`i'X==330 | ha`i'X==401 | ha`i'X==410) egen personal_quality_`i'=rsum(personal_quality_`i'_*) drop personal_quality_`i'_* local i=`i'+1 } ** travel_quality ** local i=1 while `i'<8{ for num 1/9: gen travel_quality_`i'_X=15 if (ha`i'0X==711 | ha`i'0X==740 | ha`i'0X==830 | ha`i'0X==800 | ha`i'0X==810 | ha`i'0X==820) | (ha`i'0X>=031 & ha`i'0X<=037) | (ha`i'0X>=091 & ha`i'0X<=097) | (ha`i'0X>=191 & ha`i'0X<=197) | (ha`i'0X>=291 & ha`i'0X<=297) | (ha`i'0X>=391 & ha`i'0X<=397) | (ha`i'0X>=491 & ha`i'0X<=497) | (ha`i'0X>=591 & ha`i'0X<=597) | (ha`i'0X>=691 & ha`i'0X<=697) | (ha`i'0X>=791 & ha`i'0X<=797) | (ha`i'0X>=891 & ha`i'0X<=897) for num 10/96: gen travel_quality_`i'_X=15 if (ha`i'X==711 | ha`i'X==740 | ha`i'X==830 | ha`i'X==800 | ha`i'X==810 | ha`i'X==820) | (ha`i'X>=031 & ha`i'X<=037) | (ha`i'X>=091 & ha`i'X<=097) | (ha`i'X>=191 & ha`i'X<=197) | (ha`i'X>=291 & ha`i'X<=297) | (ha`i'X>=391 & ha`i'X<=397) | (ha`i'X>=491 & ha`i'X<=497) | (ha`i'X>=591 & ha`i'X<=597) | (ha`i'X>=691 & ha`i'X<=697) | (ha`i'X>=791 & ha`i'X<=797) | (ha`i'X>=891 & ha`i'X<=897) egen travel_quality_`i'=rsum(travel_quality_`i'_*) drop travel_quality_`i'_* local i=`i'+1 } ** care_quality ** local i=1 while `i'<8{ for num 1/9: gen care_quality_`i'_X=15 if ((ha`i'0X>=200 & ha`i'0X<=300) | ha`i'0X==420 | ha`i'0X==666) for num 10/96: gen care_quality_`i'_X=15 if ((ha`i'X>=200 & ha`i'X<=300) | ha`i'X==420 | ha`i'X==666) egen care_quality_`i'=rsum(care_quality_`i'_*) drop care_quality_`i'_* local i=`i'+1 } **DIARIES WITH LESS THAN SEVEN EPISODES *************************************** *WE CONSTRUCT A VARIABLE FOR COUNTING THE NUMBER OF TOTAL EPISODES FOR EACH INDIVIDUAL, IN EACH DAY *FINALLY WE IDENTIFY THOSE DIARIES WITH LESS THAN SEVEN EPISODES *WE HAVE DIFFERENTS EPISODES IF THE PRIMARY ACTIVITIES ARE DIFFERENT, SO WE HAVE TO CONSTRUCT SOME INTERMEDIATE VARIABELS TO TAKE INTO ACCOUNT THE PREVIOUS ACTIVITY local i=1 while `i'<8{ local j=1 while `j'<10{ local k=`j'+1 generate lag`i'`k'=ha`i'0`j' local j=`j'+1 } local i=`i'+1 } local i=1 while `i'<8{ local j=10 while `j'<97{ local k=`j'+1 generate lag`i'`k'=ha`i'`j' local j=`j'+1 } local i=`i'+1 } local i=1 while `i'<8{ local j=2 while `j'<10{ generate EPISODE`i'`j'=1 if ha`i'0`j'!=lag`i'`j' replace EPISODE`i'`j'=0 if EPISODE`i'`j'==. local j=`j'+1 } local j=10 while `j'<97{ generate EPISODE`i'`j'=1 if ha`i'`j'!=lag`i'`j' replace EPISODE`i'`j'=0 if EPISODE`i'`j'==. local j=`j'+1 } egen number_episodes_`i'=rsum(EPISODE`i'2 - EPISODE`i'96) replace number_episodes_`i'=number_episodes_`i'+1 local i=`i'+1 } drop EPISODE* lag* **12 EPISODES AND REPORTS ALL DAY AT HOME ***************************************** local i=1 while `i'<8{ for num 1/9: gen at_home_`i'_X=15 if (pl`i'0X==1 | pl`i'0X==2) for num 10/96: gen at_home_`i'_X=15 if (pl`i'X==1 | pl`i'X==2) local i=`i'+1 } local i=1 while `i'<8{ egen at_home_`i'=rsum(at_home_`i'_*) drop at_home_`i'_* local i=`i'+1 } ****************************************************************************************************************************************************************************** ****************************************************************************************************************************************************************************** *************************************************** EXPANSION OF DATASET, TO HAVE SEVEN OBSERVATIONS PER DIARIST *************************************************************** ****************************************************************************************************************************************************************************** ****************************************************************************************************************************************************************************** expand 7 sort tbonr generate day=. replace day=1 if _n==1 local j=1 while `j'<=_N{ local i=`j'-1 replace day=day[`i']+1 if tbonr[`i']==tbonr[`j'] & _n==`j' replace day=1 if tbonr[`i']!=tbonr[`j'] & _n==`j' local i=`i'+1 local j=`j'+1 } generate diary=day generate id=day * WE COMPUTE EACH HARMONIXED ACTIVITY TO EACH DAY ** for num 1/41: gen avX=. for num 1/69: gen mainX=. generate eating_quality=. generate sleeping_quality=. generate travel_quality=. generate personal_quality=. generate care_quality=. generate number_episodes=. local i=1 while `i'<8{ local j=1 while `j'<42{ replace av`j'=av`j'_`i' if day==`i' local j=`j'+1 } local j=1 while `j'<70{ replace main`j'=main`j'_`i' if day==`i' local j=`j'+1 } replace eating_quality=eating_quality_`i' if day==`i' replace sleeping_quality=sleeping_quality_`i' if day==`i' replace travel_quality=travel_quality_`i' if day==`i' replace personal_quality=personal_quality_`i' if day==`i' replace care_quality=care_quality_`i' if day==`i' replace number_episodes=number_episodes_`i' if day==`i' local i=`i'+1 } egen tottime=rsum(av1-av41) **THERE ARE 12,691 OBSEVATIONS WITH 1440 MINUTES (1,813*7) gen paidetc =av1+av2+av3+av5 gen hwork=av7 gen cooking=av6 gen eating =av15 gen kidcare=av11 gen shopping=av10 gen dtravel=av12 gen otravel=av17+av18 gen perscare=av13+av16 gen eatout=av28 gen pubclubs=av26+av27 gen spectat=av20+av22+av23+av24+av25 gen asports=av19 gen walking=av21 gen visits=av29+av38 gen tvrad=av30+av31+av32 gen reading=av33+av34+av35 gen chatsetc=av36+av37 gen oddjobs=av8+av9 gen hobbies=av39+av40 gen medical=av14 gen educ=av4 gen tottime_bis=paidetc+hwork +cooking +eating +kidcare+ shopping +dtravel +otravel+ perscare+ eatout+ pubclubs+ spectat+ asports+ walking+ visits+ tvrad+ reading+ chatsetc+ oddjobs+ hobbies +medical +educ +av41 **THERE ARE 12,691 OBSEVATIONS WITH 1440 MINUTES (1,813*7) ** LOW QUALITY DIARIES ** gen badcase=. ** MISSING SEX OR AGE ** generate loss_sex_age=1 if sex<0 | age<0 replace loss_sex_age=0 if loss_sex_age==. **91+ MISSING MINUTES OF ACTIVITY ********************************* generate missing_91=1 if av41>90 replace missing_91=0 if missing_91==. ** DIARIES WITH MISSING DAY ** ****************************** **NO DIARIES WITH MISSING DAYS generate missing_day=0 ** 2+ MISSING BASIC ACTIVITIES ** replace travel_quality=1 if travel_quality>0 replace eating_quality=1 if eating_quality>0 replace sleeping_quality=1 if sleeping_quality>0 replace personal_quality=1 if personal_quality>0 replace care_quality=1 if care_quality>0 generate TOTAL_BASIC_ACTIVITIES=travel_quality+ eating_quality+ sleeping_quality+ personal_quality generate LOSS_ACTIVITIES_INTER=4-TOTAL_BASIC_ACTIVITIES generate loss_basic_activities=1 if LOSS_ACTIVITIES_INTER>=2 replace loss_basic_activities=0 if loss_basic_activities==. **WITH THE FOUR INDICATORS, WE COMPUTE THE "BADCASE" VARIABLE ************************************************************* /* BAD CASE MARKER */ replace badcase=0 if loss_sex_age==0 & missing_day==0 & missing_91==0 & number_episodes>=7 & loss_basic_activities==0 replace badcase=1 if loss_sex_age==1 & missing_day==0 & missing_91==0 & number_episodes>=7 & loss_basic_activities==0 replace badcase=2 if loss_sex_age==0 & missing_day==1 & missing_91==0 & number_episodes>=7 & loss_basic_activities==0 replace badcase=3 if loss_sex_age==0 & missing_day==0 & missing_91==1 & number_episodes>=7 & loss_basic_activities==0 replace badcase=4 if loss_sex_age==0 & missing_day==0 & missing_91==0 & number_episodes<7 & loss_basic_activities==0 replace badcase=5 if loss_sex_age==0 & missing_day==0 & missing_91==0 & number_episodes>=7 & loss_basic_activities==1 replace badcase=6 if loss_sex_age==1 & missing_day==1 & missing_91==0 & number_episodes>=7 & loss_basic_activities==0 replace badcase=7 if loss_sex_age==1 & missing_day==0 & missing_91==1 & number_episodes>=7 & loss_basic_activities==0 replace badcase=8 if loss_sex_age==1 & missing_day==0 & missing_91==0 & number_episodes<7 & loss_basic_activities==0 replace badcase=9 if loss_sex_age==1 & missing_day==0 & missing_91==0 & number_episodes>=7 & loss_basic_activities==1 replace badcase=10 if loss_sex_age==0 & missing_day==1 & missing_91==1 & number_episodes>=7 & loss_basic_activities==0 replace badcase=11 if loss_sex_age==0 & missing_day==1 & missing_91==0 & number_episodes<7 & loss_basic_activities==0 replace badcase=12 if loss_sex_age==0 & missing_day==1 & missing_91==0 & number_episodes>=7 & loss_basic_activities==1 replace badcase=13 if loss_sex_age==0 & missing_day==0 & missing_91==1 & number_episodes<7 & loss_basic_activities==0 replace badcase=14 if loss_sex_age==0 & missing_day==0 & missing_91==1 & number_episodes>=7 & loss_basic_activities==1 replace badcase=15 if loss_sex_age==0 & missing_day==0 & missing_91==0 & number_episodes<7 & loss_basic_activities==1 replace badcase=16 if loss_sex_age==1 & missing_day==1 & missing_91==1 & number_episodes>=7 & loss_basic_activities==0 replace badcase=17 if loss_sex_age==1 & missing_day==1 & missing_91==0 & number_episodes<7 & loss_basic_activities==0 replace badcase=18 if loss_sex_age==1 & missing_day==1 & missing_91==0 & number_episodes>=7 & loss_basic_activities==1 replace badcase=19 if loss_sex_age==1 & missing_day==0 & missing_91==1 & number_episodes<7 & loss_basic_activities==0 replace badcase=20 if loss_sex_age==1 & missing_day==0 & missing_91==1 & number_episodes>=7 & loss_basic_activities==1 replace badcase=21 if loss_sex_age==1 & missing_day==0 & missing_91==0 & number_episodes<7 & loss_basic_activities==1 replace badcase=22 if loss_sex_age==0 & missing_day==1 & missing_91==1 & number_episodes<7 & loss_basic_activities==0 replace badcase=23 if loss_sex_age==0 & missing_day==1 & missing_91==1 & number_episodes>=7 & loss_basic_activities==1 replace badcase=24 if loss_sex_age==0 & missing_day==1 & missing_91==0 & number_episodes<7 & loss_basic_activities==1 replace badcase=25 if loss_sex_age==0 & missing_day==0 & missing_91==1 & number_episodes<7 & loss_basic_activities==1 replace badcase=26 if loss_sex_age==1 & missing_day==1 & missing_91==1 & number_episodes<7 & loss_basic_activities==0 replace badcase=27 if loss_sex_age==1 & missing_day==1 & missing_91==1 & number_episodes>=7 & loss_basic_activities==1 replace badcase=28 if loss_sex_age==1 & missing_day==1 & missing_91==0 & number_episodes<7 & loss_basic_activities==1 replace badcase=29 if loss_sex_age==1 & missing_day==0 & missing_91==1 & number_episodes<7 & loss_basic_activities==1 replace badcase=30 if loss_sex_age==0 & missing_day==1 & missing_91==1 & number_episodes<7 & loss_basic_activities==1 replace badcase=31 if loss_sex_age==1 & missing_day==1 & missing_91==1 & number_episodes<7 & loss_basic_activities==1 **EXCEPTIONS TO THE MISSING BASIC ACTIVITIES *********************************************** *CARERS ******* generate carer_badcase=1 if care_quality>0 replace carer_badcase=1 if carer_badcase==. & carer==1 replace carer_badcase=0 if carer_badcase==. replace badcase=0 if carer_badcase==1 & loss_sex_age==0 & missing_day==0 & missing_91==0 & number_episodes>=7 & loss_basic_activities==1 **BEING AT HOME ALL DAY *********************** gen at_home=. local i=1 while `i'<8{ replace at_home=at_home_`i' if day==`i' local i=`i'+1 } replace badcase=0 if badcase>0 & loss_sex_age==0 & missing_day==0 & missing_91==0 & number_episodes>=12 & TOTAL_BASIC_ACTIVITIES==2 & travel_quality==0 & at_home>=1000 **15+ EPISODES *************** replace badcase=0 if loss_sex_age==0 & missing_day==0 & missing_91==0 & number_episodes>=15 & TOTAL_BASIC_ACTIVITIES==2 /* We obtain the following distribution of bad diaries: badcase | Freq. Percent Cum. ------------+----------------------------------- 0 | 12,522 98.67 98.67 3 | 3 0.02 98.69 4 | 32 0.25 98.94 5 | 55 0.43 99.38 15 | 79 0.62 100.00 ------------+----------------------------------- Total | 12,691 100.00 */ ** WEIGHTS ** generate ocombwt=xgewicht 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 egen ngroupsp=max(weekwt) if badcase==0 by sex age: egen wkcount2=count(weekwt) if badcase==0 generate propwt=((wkcount2/7)/daycount2) replace propwt=0 if badcase!=0 replace propwt=propwt*(count/countp) ***NOW WE IMPUTE THE WORKHRS FOR THOSE WHO ARE UNEMPLOYED ********************************************************* sort persid gen sum_workhrs_inter=main7+main8+main9+main11+main12+main13 by persid: egen sum_workhrs=sum(sum_workhrs_inter) replace workhrs=sum_workhrs if unemp==1 **WE CHANGE SOME CASES WHERE INFORMATION IS INCONSISTENT ******************************************************** replace emp=1 if unemp==1 & workhrs>0 replace empstat=3 if unemp==1 & workhrs>0 replace emp=1 if workhrs==450 | workhrs==1470 | workhrs==1860 replace workhrs=8 if workhrs==450 replace workhrs=25 if workhrs==1470 replace workhrs=31 if workhrs==1860 ***************************************************************************************************************************************************************************** ***************************************************************************************************************************************************************************** ******************************************************** checks of the 1440 minutes per diary ******************************************************************************* ***************************************************************************************************************************************************************************** ***************************************************************************************************************************************************************************** drop tottime tottime_bis gen tottime=av1+av2+av3+av4+av5+av6 +av7 +av8 +av9 +av10 +av11 +av12 +av13 +av14 +av15 +av16 +av17 +av18 +av19 +av20 +av21 +av22 +av23 +av24 +av25 +av26 +av27 +av28 +av29 +av30 +av31 +av32 +av33 +av34 +av35 +av36 +av37 +av38 +av39 +av40 +av41 gen tottime_bis=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 **WITH THE TWO VARIABLES (tottime, tottime_bis) ALL DIARIES HAVE 1440 MINUTES OF ACTIVITY **REPLACE TIME USE VARIABLES NOT POSIBLE TO CREATE ***************************************** replace av27=-9 replace main10=-9 replace main14=-9 replace main35=-9 replace main43=-9 replace main44=-9 replace main47=-9 replace main62=-9 ***************************************************************************************************************************************************************************** ***************************************************************************************************************************************************************************** ************************************************************************* LABELS ******************************************************************************************** ***************************************************************************************************************************************************************************** ***************************************************************************************************************************************************************************** #delimit; lab var countreg "Country or region of survey"; lab def countreg 1 "Argentina" 2 "Austria" 3 "Australia" 4 "Belgium" 5 "Brazil" 6 "Bulgaria" 7 "Canada" 8 "China" 9 "Denmark" 10 "Estonia" 11 "Finland" 12 "France" 13 "Germany" 14 "Hungary" 15 "India" 16 "Ireland" 17 "Israel" 18 "Italy" 19 "Japan" 20 "Latvia" 21 "Lithuania" 22 "Netherlands" 23 "New Zealand" 24 "Norway" 25 "Peru" 26 "Poland" 27 "Portugal" 28 "Republic of Korea" 29 "Romania" 30 "Russia" 31 "Slovak Republic/Czechoslovakia" 32 "Slovenia/Yugoslavia" 33 "South Africa" 34 "Spain" 35 "Sweden" 36 "Turkey" 37 "United Kingdom" 38 "USA" ; lab val countreg countreg ; /*; lab var country "Old MTUS country of survey list"; lab def country 1 "Canada" 2 "Denmark" 3 "France" 4 "Netherlands" 5 "Norway" 6 "UK" 7 "USA" 8 "Hungary" 9 "West Germany - now combined with 9, use MSAMP to distinguish" 10 "Poland" 11 "Belgium" 12 "Bulgaria" 13 "Czech - old code no longer in use, see Slovak Republic" 14 "East Germany - now combined with 9, use MSAMP to distinguish" 15 "Peru" 16 "Yugoslavia - old code no longer in use, see Slovenia" 17 "Finland" 18 "Italy" 19 "Australia" 20 "Israel" 21 "Sweden" 22 "Germany" 23 "Austria" 24 "South Africa" 25 "Brazil" 26 "Estonia" 27 "India" 28 "Japan" 31 "New Zealand" 32 "Portugal" 33 "Romania" 34 "Slovenia" 35 "Spain" 36 "Lituania" 37 "Latvia" 38 "Argentina" 39 "China" 40 "Ireland" 41 "Republic of Korea" 42 "Russia" 43 "Slovak Republic" 44 "Turkey"; lab val country country; */; lab var survey "Year survey began (survey id)"; lab var swave "longitudinal study wave marker"; lab def swave 0 "not longitudinal study/case" 1 "Wave 1" 2 "Wave 2" 3 "Wave 3" 4 "Wave 4" ; lab val swave swave; lab var msamp "multiple samples in study"; lab def msamp 0 "1 sample" 1 "Szalai USA 65 sample" 2 "national USA 65 sample" 3 "original NHAPS" 4 "95 NHAPS supplement" 5 "USA 85 mail back sample" 6 "USA 85 phone interview" 7 "USA 85 personal interview" 8 "Szalai Slovenia" 9 "Szalai Serbia" 10 "West Germany" 11 "East Germany" ; lab val msamp msamp; lab var hldid "Household identifier"; lab def hldid 0 "1 person sampled per household"; lab val hldid hldid; lab var persid "Person/diarist identifier"; lab var id "Diary identifier"; lab var parntid1 "Person id 1st parent of diarist"; lab def parntid1 -9 "counld not be created" -8 "could not identify parent in hh" -7 "diarist does not live with parent"; lab val parntid1 parntid1; lab var parntid2 "Person id 2nd parent of diarist"; lab def parntid2 -9 "counld not be created" -8 "could not identify parent in hh" -7 "diarist does not live with parent"; lab val parntid2 parntid2; lab var partid "Person id of spouse or partner"; lab def partid -9 "counld not be created" -8 "could not identify partner in hh" -7 "diarist does not have partner"; lab val partid partid; lab var day "Day of week diary kept"; lab def day 1 "Sunday" 2 "Monday" 3 "Tuesday" 4 "Wednesday" 5 "Thursday" 6 "Friday" 7 "Saturday" 8 "Whole week average" 9 "Unspecified weekday" 10 "Unspecified weekend day" -8 "missing" -9 "could not be created"; lab val day day; lab var month "Month diary kept"; lab def month 1 "January" 2 "February" 3 "March" 4 "April" 5 "May" 6 "June" 7 "July" 8 "August" 9 "September" 10 "October" 11 "November" 12 "December" -8 "missing" -9 "could not be created"; lab val month month; lab var year "Year diary kept"; lab def year -8 "missing" -9 "could not be created"; lab val year year; lab var diary "Diary order"; lab def diary 1 "1st diary day" 2 "2nd diary day" 3 "3rd diary day" 4 "4th diary day" 5 "5th diary day" 6 "6th diary day" 7 "7th diary day" 8 "Weekly average" -8 "missing" -9 "could not be created"; lab val diary diary; lab var badcase "marker of low quality cases"; lab def badcase 0 "good case" 1 "miss age or sex only" 2 "miss day of week only" 3 "miss 91+ minutes only" 4 "<7 episodes only" 5 "miss 2+ basic acts only" 6 "miss age/sex + day of week" 7 "miss age/sex + 91+ min" 8 "miss age/sex + <7 episodes" 9 "miss age/sex + 2+ basic acts" 10 "miss day of week + 91+ min" 11 "miss day of week + <7 episodes" 12 "miss day of week + 2+ basic acts" 13 "miss 91+ min + <7 episodes" 14 "miss 91+ min + 2+ basic acts" 15 "<7 ep & miss 2+ basic acts" 16 "miss age/sex + day or week + 91+ min" 17 "miss age/sex + day or week + <7 episodes" 18 "miss age/sex + day or week + 2+ basic acts" 19 "miss age/sex + 91+ min + <7 eps" 20 "miss age/sex + 91+ min + 2+ basic acts" 21 "miss age/sex + 2+ basic acts + <7 eps" 22 "miss day or week + 91+ min + <7 eps" 23 "miss day or week + 91+ min + 2+ basic acts" 24 "miss day or week + 2+ basic acts + <7 eps" 25 "miss 91+ min + 2+ basic acts + <7 eps" 26 "miss age/sex + day or week + 91+ min + <7 episodes" 27 "miss age/sex + day or week + 91+ min + 2+ basic acts" 28 "miss age/sex + day or week + <7 episodes + 2+ basic acts" 29 "miss age/sex + 91+ min + <7 episodes + 2+ basic acts" 30 "day or week + 91+ min + <7 episodes + 2+ basic acts" 31 "bad on all five points"; lab val badcase badcase; lab var hhtype "Household type"; lab def hhtype 1 "1 person household" 2 "Married/cohabiting couple alone" 3 "Married/cohabiting couple + others" 4 "Other household types" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val hhtype hhtype; lab var hhldsize "# people in household"; lab def hhldsize -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val hhldsize hhldsize; lab var nchild "# child aged<18 in hhold"; lab def nchild -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val nchild nchild; lab var agekidx "Age youngest child in hhold"; lab def agekidx 1 "age 0-4" 2 "age 5-12" 3 "age 13-17" 4 "adult child" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val agekidx agekidx; lab var agekid2 "Actual age youngest child in hhold"; lab def agekid2 80 "80 or older" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val agekid2 agekid2; lab var incorig "Original household income"; lab def incorig -9 "could not be created"; lab val incorig incorig; lab var income "Total hhold income grouped"; lab def income 1 "lowest 25%" 2 "middle 50%" 3 "highest 25%" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val incorig incorig; lab var ownhome "owns or rents home"; lab def ownhome 1 "own outright or mortgage" 2 "rents" 3 "other" -8 "missing" -9 "could not be created"; lab val ownhome ownhome; lab var urban "Urban or rural hhold"; lab def urban 1 "urban/suburban" 2 "rural/semi-rural" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val urban urban; lab var computer "hhold has computer/internet access"; lab def computer 0 "no" 1 "yes" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val computer computer; lab var vehicle "hhold access to a private vehicle"; lab def vehicle 0 "no" 1 "animal only" 2 "non-motorised vehicle" 3 "1 car/motorcycle" 4 "2+ cars/motocycles" -8 "missing" -9 "could not be created" ; lab val vehicle vehicle; lab var sex "Sex"; lab def sex 1 "Man" 2 "Woman" -8 "missing"; lab val sex sex; lab var age "Age"; lab def age 80 "80 or older" -7 "not asked" -8 "missing"; lab val age age; lab var famstat "Individual level family status"; lab def famstat 0 "Aged 18 to 39 with no coresident children <18" 1 "Aged 18+ living with 1+ coresident children aged <5" 2 "Aged 18+ living with 1+ coresident children 5-17, none <5" 3 "Aged 40+ with no coresident children <18" 4 "Aged <18 and living with parent(s)/guardian(s)" 5 "Aged <18, living arrangement other or unknown" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val famstat famstat; lab var cphome "Unmarried child in parental home"; lab def cphome 0 "no" 1 "yes" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val cphome cphome; lab var singpar "diarist a single parent"; lab def singpar 0 "no" 1 "yes" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val singpar singpar; lab var relrefp "Relation to hhold ref person"; lab def relrefp 1 "person 1" 2 "spouse/partner" 3 "child" 4 "parent" 5 "sibling" 6 "son/daughter-in-law" 7 "parent-in-law" 8 "brother/sister-in-law" 9 "other relative" 10 "not related" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val relrefp relrefp; lab var civstat "Civic status"; lab def civstat 1 "couple (married/cohabiting/civ partnership)" 2 "not live with a spouse/partner" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val civstat civstat; lab var cohab "diarist cohabiting"; lab def cohab 0 "no, married" 1 "yes, cohabitting" -7 "not in couple" -8 "missing" -9 "could not be created"; lab val cohab cohab; lab var citizen "Diarist is citizen/national of country"; lab def citizen 0 "no, no work or vote right" 1 "no, has work or vote right" 2 "yes" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val citizen citizen; lab var empstat "employment status"; lab def empstat 1 "full-time" 2 "part-time" 3 "unknown job hours" 4 "not in paid work" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val empstat empstat; lab var emp "in paid work"; lab def emp 0 "not in paid work" 1 "in paid work" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val emp emp; lab var unemp "Unemployed"; lab def unemp 0 "no" 1 "yes" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val unemp unemp; lab var student "Student status"; lab def student 0 "not student" 1 "student" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val student student; lab var retired "Retirement status"; lab def retired 0 "not retired" 1 "retired" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val retired retired; lab var empsp "Emp status spouse/partner"; lab def empsp 1 "full-time" 2 "part-time" 3 "unknown job hours" 4 "not in paid work" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val empsp empsp; lab var workhrs "Hours paid work last week inc overtime"; lab def workhrs -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val workhrs workhrs; lab var empinclm "Orig monthly labour income"; lab def empinclm -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val empinclm empinclm; lab var occup "Occupation"; lab def occup 1 "management" 2 "finance/legal profsnl" 3 "science/engineering profsnl" 4 "civil and social services" 5 "education professional" 6 "medical professional" 7 "other professional" 8 "health/social care support" 9 "clerical or office support" 10 "security and armed forces" 11 "sales and services" 12 "farming or forestry" 13 "construction, assembly" 14 "self-employed non-professional" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val occup occup; lab var sector "Sector of employment"; lab def sector 1 "public sector" 2 "private sector" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val sector sector; lab var educa "Education-original study codes"; lab def educa 7 "university level" 6 "polytechnic level" 5 "high school degree" 4 "higher levels of secondary education (at least 5 years)" 3 "higher levels of secondary education (3, 4 years)" 2 "lower levels of secondary education (1, 2 years)" 1 "only primary education"; lab val educa educa; lab var edtry "Harmonised education"; lab def edtry 1 "inc 2ndry or less" 2 "completed secondary" 3 "above 2ndry education" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val edtry edtry; lab var rushed "Whether diarist ususally feels rushed"; lab def rushed 0 "almost never" 1 "sometimes" 2 "often" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val rushed rushed; lab var health "Diarist's general health"; lab def health 0 "poor" 1 "fair" 2 "good" 3 "very good" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val health health; lab var carer "diarist provides adult care"; lab def carer 0 "no" 1 "yes" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val carer carer; lab var disab "has disability/l-term hlth cond"; lab def disab 0 "no" 1 "yes" -7 "not applicable/not asked" -8 "missing" -9 "could not be created"; lab val disab disab; lab var main1 "imputed personal or household care"; lab var main2 "sleep and naps"; lab var main3 "imputed sleep"; lab var main4 "wash, dress, care for self"; lab var main5 "meals at work or school"; lab var main6 "other meals or snacks"; lab var main7 "paid work-lab var main job (not at home)"; lab var main8 "paid work at home"; lab var main9 "second or other job not at home"; lab var main10 "unpaid work to generate household income"; lab var main11 "travel as a part of work"; lab var main12 "work breaks"; lab var main13 "other time at workplace"; lab var main14 "look for work"; lab var main15 "regular schooling, education"; lab var main16 "homework"; lab var main17 "leisure/other education or training"; lab var main18 "food preparation, cooking"; lab var main19 "set table, wash/put away dishes"; lab var main20 "cleaning"; lab var main21 "laundry, ironing, clothing repair"; lab var main22 "maintain home/vehicle"; lab var main23 "other domestic work"; lab var main24 "purchase goods"; lab var main25 "consume personal care services"; lab var main26 "consume other services"; lab var main27 "pet care (not walk dog)"; lab var main28 "physical, medical child care"; lab var main29 "teach, help with homework"; lab var main30 "read to, talk or play with child"; lab var main31 "supervise, accompany, other child care"; lab var main32 "adult care"; lab var main33 "voluntary, civic, organisational act"; lab var main34 "worship and religion"; lab var main35 "general out-of-home leisure"; lab var main36 "attend sporting event"; lab var main37 "cinema, theatre, opera, concert"; lab var main38 "other public event, venue"; lab var main39 "restaurant, café, bar, pub"; lab var main40 "party, social event, gambling"; lab var main41 "imputed time away from home"; lab var main42 "general sport or exercise"; lab var main43 "walking"; lab var main44 "cycling"; lab var main45 "other outside recreation"; lab var main46 "gardening/pick mushrooms"; lab var main47 "walk dogs"; lab var main48 "receive or visit friends"; lab var main49 "conversation (in person, phone)"; lab var main50 "other in-home social, games"; lab var main51 "general indoor leisure"; lab var main52 "art or music"; lab var main53 "correspondence (not e-lab mail)"; lab var main54 "knit, crafts or hobbies"; lab var main55 "relax, think, do nothing"; lab var main56 "read"; lab var main57 "listen to music etc"; lab var main58 "listen to radio"; lab var main59 "watch TV, video, DVD"; lab var main60 "computer games"; lab var main61 "e-lab mail, surf internet, computing"; lab var main62 "no act but recorded transport mode"; lab var main63 "travel to/from work"; lab var main64 "education travel"; lab var main65 "voluntary/civic/religious travel"; lab var main66 "child/adult care travel"; lab var main67 "shop, person/hhld care travel"; lab var main68 "other travel"; lab var main69 "no recorded activity"; forval i = 2/69{; lab def main`i' -9 "could not be created for study"; }; lab var av1 "paid work"; lab var av2 "paid work at home"; lab var av3 "second job"; lab var av4 "school/classes"; lab var av5 "travel to/from work"; lab var av6 "cook, wash up"; lab var av7 "housework"; lab var av8 "odd jobs"; lab var av9 "gardening"; lab var av10 "shopping"; lab var av11 "childcare"; lab var av12 "domestic travel"; lab var av13 "dress/personal care"; lab var av14 "consume services"; lab var av15 "meals, snacks"; lab var av16 "sleep"; lab var av17 "free time travel"; lab var av18 "excursions"; lab var av19 "active sport"; lab var av20 "passive sport"; lab var av21 "walks"; lab var av22 "religious activity"; lab var av23 "civic activity"; lab var av24 "cinema, theatre"; lab var av25 "dances, parties"; lab var av26 "social club"; lab var av27 "pub"; lab var av28 "restaurant"; lab var av29 "visit friends"; lab var av30 "listen to radio"; lab var av31 "TV, video"; lab var av32 "listen to CDs records"; lab var av33 "study"; lab var av34 "read books"; lab var av35 "read paper/magazine"; lab var av36 "relax"; lab var av37 "conversation"; lab var av38 "entertain friends"; lab var av39 "knit, sew"; lab var av40 "other leisure"; lab var av41 "missing"; forval i = 1/41{; lab def av`i' -9 "could not be created for study"; }; lab var sppart "time with spouse or partner"; lab def sppart -9 "could not be created for study"; lab val sppart sppart; lab var ocombwt "Original weight"; lab var propwt "Proposed weight"; #delimit cr **************************************************** * Stata syntax to order the W5.8 MTUS variables * **************************************************** local i=1 while `i'<8{ for num 1/69: drop mainX_`i' local i=`i'+1 } local i=1 while `i'<8{ for num 1/41: drop avX_`i' local i=`i'+1 } #delimit; order countreg /*country*/ survey swave msamp hldid persid id parntid1 parntid2 partid day month year diary badcase hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age famstat cphome singpar relrefp civstat cohab citizen empstat emp unemp student retired empsp workhrs empinclm occup sector educa edtry rushed health carer disab main* av* sppart ocombwt propwt ; keep countreg /*country*/ survey swave msamp hldid persid id parntid1 parntid2 partid day month year diary badcase hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age famstat cphome singpar relrefp civstat cohab citizen empstat emp unemp student retired empsp workhrs empinclm occup sector educa edtry rushed health carer disab main* av* sppart ocombwt propwt tbonr ; #delimit cr compress **Since we should show the creation of all final MTUS versions, we create a intermediate version sort hldid id persid saveold Net2000W_inter.dta, replace **************************************************************************************************************************************************************************** **************************************************************************************************************************************************************************** ******************************************************************* WE NOW PREPARE THE W6 VERSION ************************************************************************** **************************************************************************************************************************************************************************** **************************************************************************************************************************************************************************** clear use netherlands2000.dta ****************************************************************************************************************************************************************************** ****************************************************************************************************************************************************************************** ********************************************************************************* DATA PREPARATION *************************************************************************** ****************************************************************************************************************************************************************************** ****************************************************************************************************************************************************************************** **MAIN ACTIVITIES AS SECONDARY ACTIVITIES ***************************************** local k=1 while `k'<8{ local i=1 while `i'<10{ replace ha`k'0`i'=(na`k'0`i'+900) if ha`k'0`i'==998 & na`k'0`i'!=. local i=`i'+1 } local i=10 while `i'<97{ replace ha`k'`i'=(na`k'`i'+900) if ha`k'`i'==998 & na`k'`i'!=. local i=`i'+1 } local k=`k'+1 } *** SECONDARY ACTIVITIES ************************* local k=1 while `k'<8{ local i=1 while `i'<10{ replace na`k'0`i'=(na`k'0`i'+900) local i=`i'+1 } local i=10 while `i'<97{ replace na`k'`i'=(na`k'`i'+900) local i=`i'+1 } local k=`k'+1 } **IMPUTED SLEEP==471 ******************** local k=1 while `k'<8{ local i=2 while `i'<10{ local j=`i'-1 replace ha`k'0`i'=471 if ha`k'0`i'==998 & (ha`k'0`j'==450 | ha`k'0`j'==460 | ha`k'0`j'==470) local i=`i'+1 } replace ha`k'10=471 if ha`k'10==998 & (ha`k'09==450 | ha`k'09==460 | ha`k'09==470) local i=11 while `i'<97{ local j=`i'-1 replace ha`k'`i'=471 if ha`k'`i'==998 & (ha`k'`j'==450 | ha`k'`j'==460 | ha`k'`j'==470) local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'+1 replace ha`k'0`i'=471 if ha`k'0`i'==998 & (ha`k'0`j'==450 | ha`k'0`j'==460 | ha`k'0`j'==470) local i=`i'+1 } replace ha`k'09=471 if ha`k'09==998 & (ha`k'10==450 | ha`k'10==460 | ha`k'10==470) local i=11 while `i'<96{ local j=`i'+1 replace ha`k'`i'=471 if ha`k'`i'==998 & (ha`k'`j'==450 | ha`k'`j'==460 | ha`k'`j'==470) local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'+1 replace ha`k'0`i'=471 if ha`k'0`i'==998 & ha`k'0`j'==471 local i=`i'+1 } replace ha`k'09=471 if ha`k'09==998 & ha`k'10==471 local i=11 while `i'<96{ local j=`i'+1 replace ha`k'`i'=471 if ha`k'`i'==998 & ha`k'`j'==471 local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'-1 replace ha`k'0`i'=471 if ha`k'0`i'==998 & ha`k'0`j'==471 local i=`i'+1 } replace ha`k'10=471 if ha`k'10==998 & ha`k'09==471 local i=11 while `i'<97{ local j=`i'-1 replace ha`k'`i'=471 if ha`k'`i'==998 & ha`k'`j'==471 local i=`i'+1 } local k=`k'+1 } **IMPUTED PERSONAL AND HOUSEHOLD CARE==401 ****************************************** local k=1 while `k'<8{ local i=2 while `i'<10{ local j=`i'-1 replace ha`k'0`i'=401 if ha`k'0`i'==998 & ((ha`k'0`j'>=91 | ha`k'0`j'<100) | (ha`k'0`j'>=191 | ha`k'0`j'<200) | (ha`k'0`j'>=291 | ha`k'0`j'<300) | (ha`k'0`j'>=391 | ha`k'0`j'<400) | (ha`k'0`j'>=491 | ha`k'0`j'<500) | (ha`k'0`j'>=591 | ha`k'0`j'<600) | (ha`k'0`j'>=691 | ha`k'0`j'<700) | (ha`k'0`j'>=791 | ha`k'0`j'<800) | (ha`k'0`j'>=891 | ha`k'0`j'<900)) local i=`i'+1 } replace ha`k'10=401 if ha`k'10==998 & ((ha`k'09>=91 | ha`k'09<100) | (ha`k'09>=191 | ha`k'09<200) | (ha`k'09>=291 | ha`k'09<300) | (ha`k'09>=391 | ha`k'09<400) | (ha`k'09>=491 | ha`k'09<500) | (ha`k'09>=591 | ha`k'09<600) | (ha`k'09>=691 | ha`k'09<700) | (ha`k'09>=791 | ha`k'09<800) | (ha`k'09>=891 | ha`k'09<900)) local i=11 while `i'<97{ local j=`i'-1 replace ha`k'`i'=401 if ha`k'`i'==998 & ((ha`k'`j'>=91 | ha`k'`j'<100) | (ha`k'`j'>=191 | ha`k'`j'<200) | (ha`k'`j'>=291 | ha`k'`j'<300) | (ha`k'`j'>=391 | ha`k'`j'<400) | (ha`k'`j'>=491 | ha`k'`j'<500) | (ha`k'`j'>=591 | ha`k'`j'<600) | (ha`k'`j'>=691 | ha`k'`j'<700) | (ha`k'`j'>=791 | ha`k'`j'<800) | (ha`k'`j'>=891 | ha`k'`j'<900)) local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'+1 replace ha`k'0`i'=401 if ha`k'0`i'==998 & ((ha`k'0`j'>=91 | ha`k'0`j'<100) | (ha`k'0`j'>=191 | ha`k'0`j'<200) | (ha`k'0`j'>=291 | ha`k'0`j'<300) | (ha`k'0`j'>=391 | ha`k'0`j'<400) | (ha`k'0`j'>=491 | ha`k'0`j'<500) | (ha`k'0`j'>=591 | ha`k'0`j'<600) | (ha`k'0`j'>=691 | ha`k'0`j'<700) | (ha`k'0`j'>=791 | ha`k'0`j'<800) | (ha`k'0`j'>=891 | ha`k'0`j'<900)) local i=`i'+1 } replace ha`k'09=401 if ha`k'09==998 & ((ha`k'10>=91 | ha`k'10<100) | (ha`k'10>=191 | ha`k'10<200) | (ha`k'10>=291 | ha`k'10<300) | (ha`k'10>=391 | ha`k'10<400) | (ha`k'10>=491 | ha`k'10<500) | (ha`k'10>=591 | ha`k'10<600) | (ha`k'10>=691 | ha`k'10<700) | (ha`k'10>=791 | ha`k'10<800) | (ha`k'10>=891 | ha`k'10<900)) local i=10 while `i'<96{ local j=`i'+1 replace ha`k'`i'=401 if ha`k'`i'==998 & ((ha`k'`j'>=91 | ha`k'`j'<100) | (ha`k'`j'>=191 | ha`k'`j'<200) | (ha`k'`j'>=291 | ha`k'`j'<300) | (ha`k'`j'>=391 | ha`k'`j'<400) | (ha`k'`j'>=491 | ha`k'`j'<500) | (ha`k'`j'>=591 | ha`k'`j'<600) | (ha`k'`j'>=691 | ha`k'`j'<700) | (ha`k'`j'>=791 | ha`k'`j'<800) | (ha`k'`j'>=891 | ha`k'`j'<900)) local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<9{ local j=`i'+1 replace ha`k'0`i'=401 if ha`k'0`i'==998 & ha`k'0`j'==401 local i=`i'+1 } replace ha`k'09=401 if ha`k'09==998 & ha`k'10==401 local i=10 while `i'<96{ local j=`i'+1 replace ha`k'`i'=401 if ha`k'`i'==998 & ha`k'`j'==401 local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<10{ local j=`i'-1 replace ha`k'0`i'=401 if ha`k'0`i'==998 & ha`k'0`j'==401 local i=`i'+1 } replace ha`k'10=401 if ha`k'10==998 & ha`k'09==401 local i=11 while `i'<97{ local j=`i'-1 replace ha`k'`i'=401 if ha`k'`i'==998 & ha`k'`j'==401 local i=`i'+1 } local k=`k'+1 } **IMPUTED TIME AWAY FROM HOME (782) *********************************** local k=1 while `k'<8{ local i=2 while `i'<10{ replace ha`k'0`i'=782 if ha`k'0`i'==998 & (pl`k'0`i'==2 | pl`k'0`i'==3) local i=`i'+1 } local i=10 while `i'<97{ replace ha`k'`i'=782 if ha`k'`i'==998 & (pl`k'`i'==2 | pl`k'`i'==3) local i=`i'+1 } local k=`k'+1 } **VARIABLES FOR THE W6 VERSION ****************************** ****************************** /* THERE ARE SEVERAL PROBLEMS: 1 NO INFORMATION ON WHO ELSE IS PRESENT 2 for the SECONDARY activities you need only enter those SECONDARY activities which have a number beginning with the figure 9. Other SECONDARY activities art not important in this survey. */ ** WHO ELSE ACTIVITIES ********************** generate alone=-9 generate child=-9 generate sppart=-9 generate oad=-9 **WE NOW HAVE TO IDENTIFY THE EPISODES, WITH CHANGES IN ACTIVITIES ************************************************ local k=1 while `k'<8{ generate new_episode`k'_1=1 for num 2/96: generate new_episode`k'_X=. local k=`k'+1 } local k=1 while `k'<8{ local i=2 while `i'<10{ local j=`i'-1 replace new_episode`k'_`i'=1 if ha`k'0`i'!=ha`k'0`j' local i=`i'+1 } replace new_episode`k'_10=1 if ha`k'10!=ha`k'09 local i=11 while `i'<97{ local j=`i'-1 replace new_episode`k'_`i'=1 if ha`k'`i'!=ha`k'`j' local i=`i'+1 } egen number_episodes`k'=rsum(new_episode`k'_1-new_episode`k'_96) local k=`k'+1 } **WE GENERATE THE MAXIMUM NUMBER OF EPISODES IN THE SURVEY ********************************************************** egen number_max_episodes_inter=rmax(number_episodes1-number_episodes7) egen number_max_episodes=max(number_max_episodes_inter) sort tbonr **WE CREATE THE NUMBER MAX OF EPISODES TO IDENTIFY THE ACTIVITY IN EACH EPISODE ******************************************************************************* local k=1 while `k'<8{ generate number_episode`k'_1=1 for num 2/96: generate number_episode`k'_X=. for num 2/96: replace new_episode`k'_X=0 if new_episode`k'_X==. local i=2 while `i'<10{ local j=`i'-1 replace number_episode`k'_`i'=number_episode`k'_`j'+new_episode`k'_`i' local i=`i'+1 } replace number_episode`k'_10=number_episode`k'_9+new_episode`k'_10 local i=11 while `i'<97{ local j=`i'-1 replace number_episode`k'_`i'=number_episode`k'_`j'+new_episode`k'_`i' local i=`i'+1 } local k=`k'+1 } **DURATION OF ACTIVITIES ************************ local k=1 while `k'<8{ for num 1/96: generate duration_episode`k'_X=. replace duration_episode`k'_1=15 local i=2 while `i'<10{ local j=`i'-1 replace duration_episode`k'_`i'=15 if number_episode`k'_`i'!=number_episode`k'_`j' replace duration_episode`k'_`i'=15+duration_episode`k'_`j' if number_episode`k'_`i'==number_episode`k'_`j' local i=`i'+1 } replace duration_episode`k'_10=15 if number_episode`k'_10!=number_episode`k'_9 replace duration_episode`k'_10=15+duration_episode`k'_9 if number_episode`k'_10==number_episode`k'_9 local i=11 while `i'<97{ local j=`i'-1 replace duration_episode`k'_`i'=15 if number_episode`k'_`i'!=number_episode`k'_`j' replace duration_episode`k'_`i'=15+duration_episode`k'_`j' if number_episode`k'_`i'==number_episode`k'_`j' local i=`i'+1 } local i=2 while `i'<10{ local j=`i'-1 replace duration_episode`k'_`j'=. if number_episode`k'_`i'==number_episode`k'_`j' local i=`i'+1 } replace duration_episode`k'_9=. if number_episode`k'_10==number_episode`k'_9 local 1=11 while `i'<97{ local j=`i'-1 replace duration_episode`k'_`j'=. if number_episode`k'_`i'==number_episode`k'_`j' local i=`i'+1 } local k=`k'+1 } **COMPUTE THE DURATION OF EACH EPISODE TO EACH EPISODE ****************************************************** local k=1 while `k'<8{ local i=1 while `i'<=number_max_episodes{ generate time`k'_`i'=. local j=1 while `j'<97{ replace time`k'_`i'=duration_episode`k'_`j' if number_episode`k'_`j'==`i' & duration_episode`k'_`j'!=. local j=`j'+1 } local i=`i'+1 } local k=`k'+1 } **TIME TRANSCURRED AT THE BEGINNIG OF THE ACTIVITY ************************************************** local k=1 while `k'<8{ generate time_transcurred`k'_1=0 local i=2 while `i'<=number_max_episodes{ generate time_transcurred`k'_`i'=. local j=`i'-1 replace time_transcurred`k'_`i'=time`k'_`j'+time_transcurred`k'_`j' local i=`i'+1 } generate clockst`k'_1=0 local i=2 while `i'<=number_max_episodes{ generate clockst`k'_`i'=. local j=0 while `j'<=1440{ local m=`j'+60 replace clockst`k'_`i'=(`j'/60)+(time_transcurred`k'_`i'-`j'+1)/100 if (time_transcurred`k'_`i'>=`j' & time_transcurred`k'_`i'<`m') local j=`j'+60 format clockst`k'_`i' %9.2f } local i=`i'+1 } local k=`k'+1 } **TIME TRANSCURRED AT THE END OF THE ACTIVITY ********************************************* local k=1 while `k'<8{ local i=1 while `i'=930 & na`k'0`i'<=990 replace sec_inter`k'_`i'=57 if na`k'0`i'==929 replace sec_inter`k'_`i'=58 if na`k'0`i'>=909 & na`k'0`i'<=916 replace sec_inter`k'_`i'=59 if na`k'0`i'>=917 & na`k'0`i'<=928 replace sec_inter`k'_`i'=60 if na`k'0`i'==901 replace sec_inter`k'_`i'=63 if na`k'0`i'==902 replace sec_inter`k'_`i'=69 if sec_inter`k'_`i'==. local i=`i'+1 } local i=10 while `i'<97{ generate sec_inter`k'_`i'=33 if na`k'`i'==907 replace sec_inter`k'_`i'=49 if na`k'`i'==903 | na`k'`i'==905 | na`k'`i'==906 replace sec_inter`k'_`i'=53 if na`k'`i'==904 replace sec_inter`k'_`i'=55 if na`k'`i'==908 replace sec_inter`k'_`i'=56 if na`k'`i'>=930 & na`k'`i'<=990 replace sec_inter`k'_`i'=57 if na`k'`i'==929 replace sec_inter`k'_`i'=58 if na`k'`i'>=909 & na`k'`i'<=916 replace sec_inter`k'_`i'=59 if na`k'`i'>=917 & na`k'`i'<=928 replace sec_inter`k'_`i'=60 if na`k'`i'==901 replace sec_inter`k'_`i'=63 if na`k'`i'==902 replace sec_inter`k'_`i'=69 if sec_inter`k'_`i'==. local i=`i'+1 } local i=1 while `i'<97{ replace sec_inter`k'_`i'=-8 if sec_inter`k'_`i'==. local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ generate sec`k'_1=sec_inter`k'_1 local i=2 while `i'<=number_max_episodes{ generate sec`k'_`i'=. local l=`i'-1 local j=2 while `j'<97{ replace sec`k'_`i'=sec_inter`k'_`j' if number_episode`k'_`j'==`i' & sec`k'_`i'==. & sec`k'_`l'!=. replace sec`k'_`i'=-8 if number_episode`k'_`j'==`i' & sec`k'_`i'==. & sec`k'_`l'!=. local j=`j'+1 } local i=`i'+1 } local k=`k'+1 } drop sec_inter* **MAIN ACTIVITIES ***************** local k=1 while `k'<8{ local i=1 while `i'<10{ generate main_inter`k'_`i'=1 if ha`k'0`i'==401 replace main_inter`k'_`i'=2 if ha`k'0`i'==450 | ha`k'0`i'==460 | ha`k'0`i'==470 replace main_inter`k'_`i'=3 if ha`k'0`i'==471 replace main_inter`k'_`i'=4 if ha`k'0`i'==400 | ha`k'0`i'==480 | ha`k'0`i'==410 replace main_inter`k'_`i'=5 if ha`k'0`i'==060 replace main_inter`k'_`i'=6 if ha`k'0`i'==430 replace main_inter`k'_`i'=7 if ha`k'0`i'==0 | ha`k'0`i'==20 | ha`k'0`i'==55 replace main_inter`k'_`i'=8 if ha`k'0`i'==10 replace main_inter`k'_`i'=9 if ha`k'0`i'==50 replace main_inter`k'_`i'=11 if ha`k'0`i'>=31 & ha`k'0`i'<=37 replace main_inter`k'_`i'=12 if ha`k'0`i'==80 replace main_inter`k'_`i'=13 if ha`k'0`i'==40 | ha`k'0`i'==70 replace main_inter`k'_`i'=15 if ha`k'0`i'==500 replace main_inter`k'_`i'=16 if ha`k'0`i'==501 | ha`k'0`i'==511 | ha`k'0`i'==521 | ha`k'0`i'==531 | ha`k'0`i'==541 | ha`k'0`i'==575 replace main_inter`k'_`i'=17 if ha`k'0`i'==510 | ha`k'0`i'==520 | ha`k'0`i'==530 | ha`k'0`i'==550 | ha`k'0`i'==560 | ha`k'0`i'==570 replace main_inter`k'_`i'=18 if ha`k'0`i'==100 replace main_inter`k'_`i'=19 if ha`k'0`i'==110 | ha`k'0`i'==111 replace main_inter`k'_`i'=20 if ha`k'0`i'==121 | ha`k'0`i'==122 | ha`k'0`i'==123 | ha`k'0`i'==124 | ha`k'0`i'==125 replace main_inter`k'_`i'=21 if ha`k'0`i'==141 | ha`k'0`i'==142 | ha`k'0`i'==150 replace main_inter`k'_`i'=22 if ha`k'0`i'==130 | ha`k'0`i'==131 | ha`k'0`i'==132 | ha`k'0`i'==160 | ha`k'0`i'==172 replace main_inter`k'_`i'=23 if ha`k'0`i'==180 replace main_inter`k'_`i'=24 if ha`k'0`i'==301 | ha`k'0`i'==302 | ha`k'0`i'==303 | ha`k'0`i'==310 | ha`k'0`i'==311 | ha`k'0`i'==312 | ha`k'0`i'==313 | ha`k'0`i'==314 | ha`k'0`i'==315 | ha`k'0`i'==316 replace main_inter`k'_`i'=25 if ha`k'0`i'==320 | ha`k'0`i'==330 replace main_inter`k'_`i'=26 if ha`k'0`i'==340 | ha`k'0`i'==341 | ha`k'0`i'==342 | ha`k'0`i'==350 | ha`k'0`i'==351 | ha`k'0`i'==360 | ha`k'0`i'==370 replace main_inter`k'_`i'=27 if ha`k'0`i'==171 replace main_inter`k'_`i'=28 if ha`k'0`i'==200 | ha`k'0`i'==210 | ha`k'0`i'==260 replace main_inter`k'_`i'=29 if ha`k'0`i'==220 replace main_inter`k'_`i'=30 if ha`k'0`i'==230 | ha`k'0`i'==240 replace main_inter`k'_`i'=31 if ha`k'0`i'==250 | ha`k'0`i'==270 replace main_inter`k'_`i'=32 if ha`k'0`i'==420 replace main_inter`k'_`i'=33 if ha`k'0`i'==600 | ha`k'0`i'==610 | ha`k'0`i'==620 | ha`k'0`i'==630 | ha`k'0`i'==655 | ha`k'0`i'==666 | ha`k'0`i'==907 replace main_inter`k'_`i'=34 if ha`k'0`i'==640 | ha`k'0`i'==650 replace main_inter`k'_`i'=36 if ha`k'0`i'==700 replace main_inter`k'_`i'=37 if ha`k'0`i'==720 | ha`k'0`i'==730 replace main_inter`k'_`i'=38 if ha`k'0`i'==710 | ha`k'0`i'==711 | ha`k'0`i'==740 | ha`k'0`i'==781 | ha`k'0`i'==830 | ha`k'0`i'==580 replace main_inter`k'_`i'=39 if ha`k'0`i'==770 | ha`k'0`i'==440 replace main_inter`k'_`i'=40 if ha`k'0`i'==760 | ha`k'0`i'==780 replace main_inter`k'_`i'=41 if ha`k'0`i'==782 replace main_inter`k'_`i'=42 if ha`k'0`i'==800 | ha`k'0`i'==820 replace main_inter`k'_`i'=45 if ha`k'0`i'==881 replace main_inter`k'_`i'=46 if ha`k'0`i'==151 | ha`k'0`i'==810 replace main_inter`k'_`i'=48 if ha`k'0`i'==750 | ha`k'0`i'==751 replace main_inter`k'_`i'=49 if ha`k'0`i'==903 | ha`k'0`i'==905 | ha`k'0`i'==906 replace main_inter`k'_`i'=50 if ha`k'0`i'==870 | ha`k'0`i'==871 | ha`k'0`i'==872 | ha`k'0`i'==873 replace main_inter`k'_`i'=51 if ha`k'0`i'==882 replace main_inter`k'_`i'=52 if ha`k'0`i'==860 replace main_inter`k'_`i'=53 if ha`k'0`i'==904 replace main_inter`k'_`i'=54 if ha`k'0`i'==840 | ha`k'0`i'==841 | ha`k'0`i'==842 | ha`k'0`i'==843 | ha`k'0`i'==850 replace main_inter`k'_`i'=55 if ha`k'0`i'==908 replace main_inter`k'_`i'=56 if ha`k'0`i'>=930 & ha`k'0`i'<=990 replace main_inter`k'_`i'=57 if ha`k'0`i'==929 replace main_inter`k'_`i'=58 if ha`k'0`i'>=909 & ha`k'0`i'<=916 replace main_inter`k'_`i'=59 if ha`k'0`i'>=917 & ha`k'0`i'<=928 replace main_inter`k'_`i'=60 if ha`k'0`i'==901 replace main_inter`k'_`i'=61 if ha`k'0`i'==902 replace main_inter`k'_`i'=63 if ha`k'0`i'>=91 & ha`k'0`i'<=97 replace main_inter`k'_`i'=64 if ha`k'0`i'>=591 & ha`k'0`i'<=597 replace main_inter`k'_`i'=65 if ha`k'0`i'==691 | ha`k'0`i'==692 | ha`k'0`i'==693 | ha`k'0`i'==694 | ha`k'0`i'==695 | ha`k'0`i'==696 | ha`k'0`i'==697 replace main_inter`k'_`i'=66 if ha`k'0`i'==291 | ha`k'0`i'==292 | ha`k'0`i'==293 | ha`k'0`i'==294 | ha`k'0`i'==295 | ha`k'0`i'==296 | ha`k'0`i'==297 replace main_inter`k'_`i'=67 if ha`k'0`i'==191 | ha`k'0`i'==192 | ha`k'0`i'==193 | ha`k'0`i'==194 | ha`k'0`i'==195 | ha`k'0`i'==196 | ha`k'0`i'==197 | ha`k'0`i'==391 | ha`k'0`i'==392 | ha`k'0`i'==393 | ha`k'0`i'==394 | ha`k'0`i'==395 | ha`k'0`i'==396 | ha`k'0`i'==397 | ha`k'0`i'==491 | ha`k'0`i'==492 | ha`k'0`i'==493 | ha`k'0`i'==494 | ha`k'0`i'==495 | ha`k'0`i'==496 | ha`k'0`i'==497 replace main_inter`k'_`i'=68 if ha`k'0`i'==791 | ha`k'0`i'==792 | ha`k'0`i'==793 | ha`k'0`i'==794 | ha`k'0`i'==795 | ha`k'0`i'==796 | ha`k'0`i'==797 | ha`k'0`i'==891 | ha`k'0`i'==892 | ha`k'0`i'==893 | ha`k'0`i'==894 | ha`k'0`i'==895 | ha`k'0`i'==896 | ha`k'0`i'==897 replace main_inter`k'_`i'=69 if ha`k'0`i'==998 local i=`i'+1 } local i=10 while `i'<97{ generate main_inter`k'_`i'=1 if ha`k'`i'==401 replace main_inter`k'_`i'=2 if ha`k'`i'==450 | ha`k'`i'==460 | ha`k'`i'==470 replace main_inter`k'_`i'=3 if ha`k'`i'==471 replace main_inter`k'_`i'=4 if ha`k'`i'==400 | ha`k'`i'==480 | ha`k'`i'==410 replace main_inter`k'_`i'=5 if ha`k'`i'==060 replace main_inter`k'_`i'=6 if ha`k'`i'==430 replace main_inter`k'_`i'=7 if ha`k'`i'==0 | ha`k'`i'==20 | ha`k'`i'==55 replace main_inter`k'_`i'=8 if ha`k'`i'==10 replace main_inter`k'_`i'=9 if ha`k'`i'==50 replace main_inter`k'_`i'=11 if ha`k'`i'>=31 & ha`k'`i'<=37 replace main_inter`k'_`i'=12 if ha`k'`i'==80 replace main_inter`k'_`i'=13 if ha`k'`i'==40 | ha`k'`i'==70 replace main_inter`k'_`i'=15 if ha`k'`i'==500 replace main_inter`k'_`i'=16 if ha`k'`i'==501 | ha`k'`i'==511 | ha`k'`i'==521 | ha`k'`i'==531 | ha`k'`i'==541 | ha`k'`i'==575 replace main_inter`k'_`i'=17 if ha`k'`i'==510 | ha`k'`i'==520 | ha`k'`i'==530 | ha`k'`i'==550 | ha`k'`i'==560 | ha`k'`i'==570 replace main_inter`k'_`i'=18 if ha`k'`i'==100 replace main_inter`k'_`i'=19 if ha`k'`i'==110 | ha`k'`i'==111 replace main_inter`k'_`i'=20 if ha`k'`i'==121 | ha`k'`i'==122 | ha`k'`i'==123 | ha`k'`i'==124 | ha`k'`i'==125 replace main_inter`k'_`i'=21 if ha`k'`i'==141 | ha`k'`i'==142 | ha`k'`i'==150 replace main_inter`k'_`i'=22 if ha`k'`i'==130 | ha`k'`i'==131 | ha`k'`i'==132 | ha`k'`i'==160 | ha`k'`i'==172 replace main_inter`k'_`i'=23 if ha`k'`i'==180 replace main_inter`k'_`i'=24 if ha`k'`i'==301 | ha`k'`i'==302 | ha`k'`i'==303 | ha`k'`i'==310 | ha`k'`i'==311 | ha`k'`i'==312 | ha`k'`i'==313 | ha`k'`i'==314 | ha`k'`i'==315 | ha`k'`i'==316 replace main_inter`k'_`i'=25 if ha`k'`i'==320 | ha`k'`i'==330 replace main_inter`k'_`i'=26 if ha`k'`i'==340 | ha`k'`i'==341 | ha`k'`i'==342 | ha`k'`i'==350 | ha`k'`i'==351 | ha`k'`i'==360 | ha`k'`i'==370 replace main_inter`k'_`i'=27 if ha`k'`i'==171 replace main_inter`k'_`i'=28 if ha`k'`i'==200 | ha`k'`i'==210 | ha`k'`i'==260 replace main_inter`k'_`i'=29 if ha`k'`i'==220 replace main_inter`k'_`i'=30 if ha`k'`i'==230 | ha`k'`i'==240 replace main_inter`k'_`i'=31 if ha`k'`i'==250 | ha`k'`i'==270 replace main_inter`k'_`i'=32 if ha`k'`i'==420 replace main_inter`k'_`i'=33 if ha`k'`i'==600 | ha`k'`i'==610 | ha`k'`i'==620 | ha`k'`i'==630 | ha`k'`i'==655 | ha`k'`i'==666 | ha`k'`i'==907 replace main_inter`k'_`i'=34 if ha`k'`i'==640 | ha`k'`i'==650 replace main_inter`k'_`i'=36 if ha`k'`i'==700 replace main_inter`k'_`i'=37 if ha`k'`i'==720 | ha`k'`i'==730 replace main_inter`k'_`i'=38 if ha`k'`i'==710 | ha`k'`i'==711 | ha`k'`i'==740 | ha`k'`i'==781 | ha`k'`i'==830 | ha`k'`i'==580 replace main_inter`k'_`i'=39 if ha`k'`i'==770 | ha`k'`i'==440 replace main_inter`k'_`i'=40 if ha`k'`i'==760 | ha`k'`i'==780 replace main_inter`k'_`i'=41 if ha`k'`i'==782 replace main_inter`k'_`i'=42 if ha`k'`i'==800 | ha`k'`i'==820 replace main_inter`k'_`i'=45 if ha`k'`i'==881 replace main_inter`k'_`i'=46 if ha`k'`i'==151 | ha`k'`i'==810 replace main_inter`k'_`i'=48 if ha`k'`i'==750 | ha`k'`i'==751 replace main_inter`k'_`i'=49 if ha`k'`i'==903 | ha`k'`i'==905 | ha`k'`i'==906 replace main_inter`k'_`i'=50 if ha`k'`i'==870 | ha`k'`i'==871 | ha`k'`i'==872 | ha`k'`i'==873 replace main_inter`k'_`i'=51 if ha`k'`i'==882 replace main_inter`k'_`i'=52 if ha`k'`i'==860 replace main_inter`k'_`i'=53 if ha`k'`i'==904 replace main_inter`k'_`i'=54 if ha`k'`i'==840 | ha`k'`i'==841 | ha`k'`i'==842 | ha`k'`i'==843 | ha`k'`i'==850 replace main_inter`k'_`i'=55 if ha`k'`i'==908 replace main_inter`k'_`i'=56 if ha`k'`i'>=930 & ha`k'`i'<=990 replace main_inter`k'_`i'=57 if ha`k'`i'==929 replace main_inter`k'_`i'=58 if ha`k'`i'>=909 & ha`k'`i'<=916 replace main_inter`k'_`i'=59 if ha`k'`i'>=917 & ha`k'`i'<=928 replace main_inter`k'_`i'=60 if ha`k'`i'==901 replace main_inter`k'_`i'=61 if ha`k'`i'==902 replace main_inter`k'_`i'=63 if ha`k'`i'>=91 & ha`k'`i'<=97 replace main_inter`k'_`i'=64 if ha`k'`i'>=591 & ha`k'`i'<=597 replace main_inter`k'_`i'=65 if ha`k'`i'==691 | ha`k'`i'==692 | ha`k'`i'==693 | ha`k'`i'==694 | ha`k'`i'==695 | ha`k'`i'==696 | ha`k'`i'==697 replace main_inter`k'_`i'=66 if ha`k'`i'==291 | ha`k'`i'==292 | ha`k'`i'==293 | ha`k'`i'==294 | ha`k'`i'==295 | ha`k'`i'==296 | ha`k'`i'==297 replace main_inter`k'_`i'=67 if ha`k'`i'==191 | ha`k'`i'==192 | ha`k'`i'==193 | ha`k'`i'==194 | ha`k'`i'==195 | ha`k'`i'==196 | ha`k'`i'==197 | ha`k'`i'==391 | ha`k'`i'==392 | ha`k'`i'==393 | ha`k'`i'==394 | ha`k'`i'==395 | ha`k'`i'==396 | ha`k'`i'==397 | ha`k'`i'==491 | ha`k'`i'==492 | ha`k'`i'==493 | ha`k'`i'==494 | ha`k'`i'==495 | ha`k'`i'==496 | ha`k'`i'==497 replace main_inter`k'_`i'=68 if ha`k'`i'==791 | ha`k'`i'==792 | ha`k'`i'==793 | ha`k'`i'==794 | ha`k'`i'==795 | ha`k'`i'==796 | ha`k'`i'==797 | ha`k'`i'==891 | ha`k'`i'==892 | ha`k'`i'==893 | ha`k'`i'==894 | ha`k'`i'==895 | ha`k'`i'==896 | ha`k'`i'==897 replace main_inter`k'_`i'=69 if ha`k'`i'==998 local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ generate main`k'_1=main_inter`k'_1 local i=2 while `i'<=number_max_episodes{ generate main`k'_`i'=. local l=`i'-1 local j=2 while `j'<97{ replace main`k'_`i'=main_inter`k'_`j' if number_episode`k'_`j'==`i' & main`k'_`i'==. & main`k'_`l'!=. local j=`j'+1 } local i=`i'+1 } local k=`k'+1 } drop main_inter* **AV ACTIVITIES *************** local k=1 while `k'<8{ local i=1 while `i'<10{ generate av_inter`k'_`i'=1 if ha`k'0`i'==00 | ha`k'0`i'==20 | ha`k'0`i'==40 | ha`k'0`i'==55 | ha`k'0`i'==60 | ha`k'0`i'==70 | ha`k'0`i'==80 | ha`k'0`i'==510 replace av_inter`k'_`i'=2 if ha`k'0`i'==10 replace av_inter`k'_`i'=3 if ha`k'0`i'==50 replace av_inter`k'_`i'=4 if ha`k'0`i'==500 | ha`k'0`i'==520 | ha`k'0`i'==530 | ha`k'0`i'==541 | ha`k'0`i'==550 | ha`k'0`i'==560 | ha`k'0`i'==570 replace av_inter`k'_`i'=5 if ha`k'0`i'==0031 | ha`k'0`i'==0032 |ha`k'0`i'==0033 | ha`k'0`i'==0034 | ha`k'0`i'==0035 | ha`k'0`i'==0036 | ha`k'0`i'==0037 | ha`k'0`i'==0091 | ha`k'0`i'==0092 | ha`k'0`i'==0093 | ha`k'0`i'==0094 | ha`k'0`i'==0095 | ha`k'0`i'==0096 | ha`k'0`i'==0097 | ha`k'0`i'==591 | ha`k'0`i'==592 | ha`k'0`i'==593 | ha`k'0`i'==594 | ha`k'0`i'==595 | ha`k'0`i'==596 | ha`k'0`i'==597 replace av_inter`k'_`i'=6 if ha`k'0`i'==100 | ha`k'0`i'==110 | ha`k'0`i'==111 replace av_inter`k'_`i'=7 if ha`k'0`i'==121 | ha`k'0`i'==122 | ha`k'0`i'==123 | ha`k'0`i'==124 | ha`k'0`i'==125 | ha`k'0`i'==141 | ha`k'0`i'==142 replace av_inter`k'_`i'=8 if ha`k'0`i'==130 | ha`k'0`i'==131 | ha`k'0`i'==132 | ha`k'0`i'==150 | ha`k'0`i'==160 | ha`k'0`i'==171 | ha`k'0`i'==172 | ha`k'0`i'==180 | ha`k'0`i'==420 | ha`k'0`i'==630 | ha`k'0`i'==666 replace av_inter`k'_`i'=9 if ha`k'0`i'==151 replace av_inter`k'_`i'=10 if ha`k'0`i'==301 | ha`k'0`i'==302 | ha`k'0`i'==303 | ha`k'0`i'==310 | ha`k'0`i'==311 | ha`k'0`i'==312 | ha`k'0`i'==313 | ha`k'0`i'==314 | ha`k'0`i'==315 | ha`k'0`i'==316 | ha`k'0`i'==340 | ha`k'0`i'==341 | ha`k'0`i'==342 | ha`k'0`i'==350 | ha`k'0`i'==351 | ha`k'0`i'==360 | ha`k'0`i'==370 replace av_inter`k'_`i'=11 if ha`k'0`i'==200 | ha`k'0`i'==210 | ha`k'0`i'==220 | ha`k'0`i'==230 | ha`k'0`i'==240 | ha`k'0`i'==250 | ha`k'0`i'==260 | ha`k'0`i'==270 replace av_inter`k'_`i'=12 if ha`k'0`i'==191 | ha`k'0`i'==192 | ha`k'0`i'==193 | ha`k'0`i'==194 | ha`k'0`i'==195 | ha`k'0`i'==196 | ha`k'0`i'==291 | ha`k'0`i'==292 | ha`k'0`i'==293 | ha`k'0`i'==294 | ha`k'0`i'==295 | ha`k'0`i'==296 | ha`k'0`i'==297 | ha`k'0`i'==391 | ha`k'0`i'==392 | ha`k'0`i'==393 | ha`k'0`i'==394 | ha`k'0`i'==395 | ha`k'0`i'==396 | ha`k'0`i'==397 | ha`k'0`i'==491 | ha`k'0`i'==492 | ha`k'0`i'==493 | ha`k'0`i'==494 | ha`k'0`i'==495 | ha`k'0`i'==496 | ha`k'0`i'==497 | ha`k'0`i'==197 replace av_inter`k'_`i'=13 if ha`k'0`i'==400 | ha`k'0`i'==480 | ha`k'0`i'==401 replace av_inter`k'_`i'=14 if ha`k'0`i'==320 | ha`k'0`i'==330 | ha`k'0`i'==410 replace av_inter`k'_`i'=15 if ha`k'0`i'==430 replace av_inter`k'_`i'=16 if ha`k'0`i'==450 | ha`k'0`i'==460 | ha`k'0`i'==470 | ha`k'0`i'==471 replace av_inter`k'_`i'=17 if ha`k'0`i'==691 | ha`k'0`i'==692 | ha`k'0`i'==693 | ha`k'0`i'==694 | ha`k'0`i'==695 | ha`k'0`i'==696 | ha`k'0`i'==697 | ha`k'0`i'==791 | ha`k'0`i'==792 | ha`k'0`i'==793 | ha`k'0`i'==794 | ha`k'0`i'==795 | ha`k'0`i'==796 | ha`k'0`i'==797 | ha`k'0`i'==891 | ha`k'0`i'==892 | ha`k'0`i'==893 | ha`k'0`i'==894 | ha`k'0`i'==895 | ha`k'0`i'==896 | ha`k'0`i'==897 replace av_inter`k'_`i'=18 if ha`k'0`i'==711 | ha`k'0`i'==740 | ha`k'0`i'==830 | ha`k'0`i'==580 replace av_inter`k'_`i'=19 if ha`k'0`i'==800 | ha`k'0`i'==810 replace av_inter`k'_`i'=20 if ha`k'0`i'==700 replace av_inter`k'_`i'=21 if ha`k'0`i'==820 replace av_inter`k'_`i'=22 if ha`k'0`i'==640 | ha`k'0`i'==650 replace av_inter`k'_`i'=23 if ha`k'0`i'==600 | ha`k'0`i'==610 | ha`k'0`i'==620 | ha`k'0`i'==655 | ha`k'0`i'==907 replace av_inter`k'_`i'=24 if ha`k'0`i'==710 | ha`k'0`i'==720 | ha`k'0`i'==730 replace av_inter`k'_`i'=25 if ha`k'0`i'==760 | ha`k'0`i'==780 | ha`k'0`i'==781 replace av_inter`k'_`i'=26 if ha`k'0`i'==770 replace av_inter`k'_`i'=28 if ha`k'0`i'==440 replace av_inter`k'_`i'=29 if ha`k'0`i'==750 replace av_inter`k'_`i'=30 if ha`k'0`i'>=909 & ha`k'0`i'<=916 replace av_inter`k'_`i'=31 if ha`k'0`i'>=917 & ha`k'0`i'<=928 replace av_inter`k'_`i'=32 if ha`k'0`i'==929 replace av_inter`k'_`i'=33 if ha`k'0`i'==501 | ha`k'0`i'==511 | ha`k'0`i'==521 | ha`k'0`i'==531 | ha`k'0`i'==575 replace av_inter`k'_`i'=34 if ha`k'0`i'==930 replace av_inter`k'_`i'=35 if (ha`k'0`i'>=937 & ha`k'0`i'<=990) | (ha`k'0`i'>=931 & ha`k'0`i'<=936) replace av_inter`k'_`i'=36 if ha`k'0`i'==908 replace av_inter`k'_`i'=37 if ha`k'0`i'==903 | ha`k'0`i'==905 | ha`k'0`i'==906 replace av_inter`k'_`i'=38 if ha`k'0`i'==751 replace av_inter`k'_`i'=39 if ha`k'0`i'==841 | ha`k'0`i'==842 | ha`k'0`i'==843 replace av_inter`k'_`i'=40 if ha`k'0`i'==840 | ha`k'0`i'==850 | ha`k'0`i'==860 | ha`k'0`i'==870 | ha`k'0`i'==871 | ha`k'0`i'==872 | ha`k'0`i'==873 | ha`k'0`i'==881 | ha`k'0`i'==882 | ha`k'0`i'==901 | ha`k'0`i'==902 | ha`k'0`i'==904 replace av_inter`k'_`i'=41 if ha`k'0`i'==998 local i=`i'+1 } local i=10 while `i'<97{ generate av_inter`k'_`i'=1 if ha`k'`i'==00 | ha`k'`i'==20 | ha`k'`i'==40 | ha`k'`i'==55 | ha`k'`i'==60 | ha`k'`i'==70 | ha`k'`i'==80 | ha`k'`i'==510 replace av_inter`k'_`i'=2 if ha`k'`i'==10 replace av_inter`k'_`i'=3 if ha`k'`i'==50 replace av_inter`k'_`i'=4 if ha`k'`i'==500 | ha`k'`i'==520 | ha`k'`i'==530 | ha`k'`i'==541 | ha`k'`i'==550 | ha`k'`i'==560 | ha`k'`i'==570 replace av_inter`k'_`i'=5 if ha`k'`i'==0031 | ha`k'`i'==0032 |ha`k'`i'==0033 | ha`k'`i'==0034 | ha`k'`i'==0035 | ha`k'`i'==0036 | ha`k'`i'==0037 | ha`k'`i'==0091 | ha`k'`i'==0092 | ha`k'`i'==0093 | ha`k'`i'==0094 | ha`k'`i'==0095 | ha`k'`i'==0096 | ha`k'`i'==0097 | ha`k'`i'==591 | ha`k'`i'==592 | ha`k'`i'==593 | ha`k'`i'==594 | ha`k'`i'==595 | ha`k'`i'==596 | ha`k'`i'==597 replace av_inter`k'_`i'=6 if ha`k'`i'==100 | ha`k'`i'==110 | ha`k'`i'==111 replace av_inter`k'_`i'=7 if ha`k'`i'==121 | ha`k'`i'==122 | ha`k'`i'==123 | ha`k'`i'==124 | ha`k'`i'==125 | ha`k'`i'==141 | ha`k'`i'==142 replace av_inter`k'_`i'=8 if ha`k'`i'==130 | ha`k'`i'==131 | ha`k'`i'==132 | ha`k'`i'==150 | ha`k'`i'==160 | ha`k'`i'==171 | ha`k'`i'==172 | ha`k'`i'==180 | ha`k'`i'==420 | ha`k'`i'==630 | ha`k'`i'==666 replace av_inter`k'_`i'=9 if ha`k'`i'==151 replace av_inter`k'_`i'=10 if ha`k'`i'==301 | ha`k'`i'==302 | ha`k'`i'==303 | ha`k'`i'==310 | ha`k'`i'==311 | ha`k'`i'==312 | ha`k'`i'==313 | ha`k'`i'==314 | ha`k'`i'==315 | ha`k'`i'==316 | ha`k'`i'==340 | ha`k'`i'==341 | ha`k'`i'==342 | ha`k'`i'==350 | ha`k'`i'==351 | ha`k'`i'==360 | ha`k'`i'==370 replace av_inter`k'_`i'=11 if ha`k'`i'==200 | ha`k'`i'==210 | ha`k'`i'==220 | ha`k'`i'==230 | ha`k'`i'==240 | ha`k'`i'==250 | ha`k'`i'==260 | ha`k'`i'==270 replace av_inter`k'_`i'=12 if ha`k'`i'==191 | ha`k'`i'==192 | ha`k'`i'==193 | ha`k'`i'==194 | ha`k'`i'==195 | ha`k'`i'==196 | ha`k'`i'==291 | ha`k'`i'==292 | ha`k'`i'==293 | ha`k'`i'==294 | ha`k'`i'==295 | ha`k'`i'==296 | ha`k'`i'==297 | ha`k'`i'==391 | ha`k'`i'==392 | ha`k'`i'==393 | ha`k'`i'==394 | ha`k'`i'==395 | ha`k'`i'==396 | ha`k'`i'==397 | ha`k'`i'==491 | ha`k'`i'==492 | ha`k'`i'==493 | ha`k'`i'==494 | ha`k'`i'==495 | ha`k'`i'==496 | ha`k'`i'==497 | ha`k'`i'==197 replace av_inter`k'_`i'=13 if ha`k'`i'==400 | ha`k'`i'==480 | ha`k'`i'==401 replace av_inter`k'_`i'=14 if ha`k'`i'==320 | ha`k'`i'==330 | ha`k'`i'==410 replace av_inter`k'_`i'=15 if ha`k'`i'==430 replace av_inter`k'_`i'=16 if ha`k'`i'==450 | ha`k'`i'==460 | ha`k'`i'==470 | ha`k'`i'==471 replace av_inter`k'_`i'=17 if ha`k'`i'==691 | ha`k'`i'==692 | ha`k'`i'==693 | ha`k'`i'==694 | ha`k'`i'==695 | ha`k'`i'==696 | ha`k'`i'==697 | ha`k'`i'==791 | ha`k'`i'==792 | ha`k'`i'==793 | ha`k'`i'==794 | ha`k'`i'==795 | ha`k'`i'==796 | ha`k'`i'==797 | ha`k'`i'==891 | ha`k'`i'==892 | ha`k'`i'==893 | ha`k'`i'==894 | ha`k'`i'==895 | ha`k'`i'==896 | ha`k'`i'==897 replace av_inter`k'_`i'=18 if ha`k'`i'==711 | ha`k'`i'==740 | ha`k'`i'==830 | ha`k'`i'==580 replace av_inter`k'_`i'=19 if ha`k'`i'==800 | ha`k'`i'==810 replace av_inter`k'_`i'=20 if ha`k'`i'==700 replace av_inter`k'_`i'=21 if ha`k'`i'==820 replace av_inter`k'_`i'=22 if ha`k'`i'==640 | ha`k'`i'==650 replace av_inter`k'_`i'=23 if ha`k'`i'==600 | ha`k'`i'==610 | ha`k'`i'==620 | ha`k'`i'==655 | ha`k'`i'==907 replace av_inter`k'_`i'=24 if ha`k'`i'==710 | ha`k'`i'==720 | ha`k'`i'==730 replace av_inter`k'_`i'=25 if ha`k'`i'==760 | ha`k'`i'==780 | ha`k'`i'==781 replace av_inter`k'_`i'=26 if ha`k'`i'==770 replace av_inter`k'_`i'=28 if ha`k'`i'==440 replace av_inter`k'_`i'=29 if ha`k'`i'==750 replace av_inter`k'_`i'=30 if ha`k'`i'>=909 & ha`k'`i'<=916 replace av_inter`k'_`i'=31 if ha`k'`i'>=917 & ha`k'`i'<=928 replace av_inter`k'_`i'=32 if ha`k'`i'==929 replace av_inter`k'_`i'=33 if ha`k'`i'==501 | ha`k'`i'==511 | ha`k'`i'==521 | ha`k'`i'==531 | ha`k'`i'==575 replace av_inter`k'_`i'=34 if ha`k'`i'==930 replace av_inter`k'_`i'=35 if (ha`k'`i'>=937 & ha`k'`i'<=990) | (ha`k'`i'>=931 & ha`k'`i'<=936) replace av_inter`k'_`i'=36 if ha`k'`i'==908 replace av_inter`k'_`i'=37 if ha`k'`i'==903 | ha`k'`i'==905 | ha`k'`i'==906 replace av_inter`k'_`i'=38 if ha`k'`i'==751 replace av_inter`k'_`i'=39 if ha`k'`i'==841 | ha`k'`i'==842 | ha`k'`i'==843 replace av_inter`k'_`i'=40 if ha`k'`i'==840 | ha`k'`i'==850 | ha`k'`i'==860 | ha`k'`i'==870 | ha`k'`i'==871 | ha`k'`i'==872 | ha`k'`i'==873 | ha`k'`i'==881 | ha`k'`i'==882 | ha`k'`i'==901 | ha`k'`i'==902 | ha`k'`i'==904 replace av_inter`k'_`i'=41 if ha`k'`i'==998 local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ generate av`k'_1=av_inter`k'_1 local i=2 while `i'<=number_max_episodes{ generate av`k'_`i'=. local l=`i'-1 local j=2 while `j'<97{ replace av`k'_`i'=av_inter`k'_`j' if number_episode`k'_`j'==`i' & av`k'_`i'==. & av`k'_`l'!=. local j=`j'+1 } local i=`i'+1 } local k=`k'+1 } drop av_inter* **MODE OF TRANSPORT VARIABLES ***************************** local k=1 while `k'<8{ local i=1 while `i'<10{ generate mtrav_inter`k'_`i'=-8 if ha`k'0`i'==998 replace mtrav_inter`k'_`i'=1 if ha`k'0`i'==32 | ha`k'0`i'==31 | ha`k'0`i'==33 | ha`k'0`i'==91 | ha`k'0`i'==92 | ha`k'0`i'==93 | ha`k'0`i'==191 | ha`k'0`i'==192 | ha`k'0`i'==193 | ha`k'0`i'==291 | ha`k'0`i'==292 | ha`k'0`i'==293 | ha`k'0`i'==391 | ha`k'0`i'==392 | ha`k'0`i'==393 | ha`k'0`i'==491 | ha`k'0`i'==492 | ha`k'0`i'==493 | ha`k'0`i'==591 | ha`k'0`i'==592 | ha`k'0`i'==593 | ha`k'0`i'==691 | ha`k'0`i'==692 | ha`k'0`i'==693 | ha`k'0`i'==791 | ha`k'0`i'==792 | ha`k'0`i'==793 | ha`k'0`i'==891 | ha`k'0`i'==892 | ha`k'0`i'==893 replace mtrav_inter`k'_`i'=2 if ha`k'0`i'==36 | ha`k'0`i'==37 | ha`k'0`i'==96 | ha`k'0`i'==97 | ha`k'0`i'==196 | ha`k'0`i'==197 | ha`k'0`i'==296 | ha`k'0`i'==297 | ha`k'0`i'==396 | ha`k'0`i'==397 | ha`k'0`i'==496 | ha`k'0`i'==497 | ha`k'0`i'==596 | ha`k'0`i'==597 | ha`k'0`i'==696 | ha`k'0`i'==697 | ha`k'0`i'==796 | ha`k'0`i'==797 | ha`k'0`i'==896 | ha`k'0`i'==897 replace mtrav_inter`k'_`i'=3 if ha`k'0`i'==35 | ha`k'0`i'==95 | ha`k'0`i'==195 | ha`k'0`i'==295 | ha`k'0`i'==395 | ha`k'0`i'==495 | ha`k'0`i'==595 | ha`k'0`i'==695 | ha`k'0`i'==795 | ha`k'0`i'==895 replace mtrav_inter`k'_`i'=4 if ha`k'0`i'==34 | ha`k'0`i'==94 | ha`k'0`i'==194 | ha`k'0`i'==294 | ha`k'0`i'==394 | ha`k'0`i'==494 | ha`k'0`i'==594 | ha`k'0`i'==694 | ha`k'0`i'==794 | ha`k'0`i'==894 replace mtrav_inter`k'_`i'=-7 if mtrav_inter`k'_`i'==. local i=`i'+1 } local i=10 while `i'<97{ generate mtrav_inter`k'_`i'=-8 if ha`k'`i'==998 replace mtrav_inter`k'_`i'=1 if ha`k'`i'==32 | ha`k'`i'==31 | ha`k'`i'==33 | ha`k'`i'==91 | ha`k'`i'==92 | ha`k'`i'==93 | ha`k'`i'==191 | ha`k'`i'==192 | ha`k'`i'==193 | ha`k'`i'==291 | ha`k'`i'==292 | ha`k'`i'==293 | ha`k'`i'==391 | ha`k'`i'==392 | ha`k'`i'==393 | ha`k'`i'==491 | ha`k'`i'==492 | ha`k'`i'==493 | ha`k'`i'==591 | ha`k'`i'==592 | ha`k'`i'==593 | ha`k'`i'==691 | ha`k'`i'==692 | ha`k'`i'==693 | ha`k'`i'==791 | ha`k'`i'==792 | ha`k'`i'==793 | ha`k'`i'==891 | ha`k'`i'==892 | ha`k'`i'==893 replace mtrav_inter`k'_`i'=2 if ha`k'`i'==36 | ha`k'`i'==37 | ha`k'`i'==96 | ha`k'`i'==97 | ha`k'`i'==196 | ha`k'`i'==197 | ha`k'`i'==296 | ha`k'`i'==297 | ha`k'`i'==396 | ha`k'`i'==397 | ha`k'`i'==496 | ha`k'`i'==497 | ha`k'`i'==596 | ha`k'`i'==597 | ha`k'`i'==696 | ha`k'`i'==697 | ha`k'`i'==796 | ha`k'`i'==797 | ha`k'`i'==896 | ha`k'`i'==897 replace mtrav_inter`k'_`i'=3 if ha`k'`i'==35 | ha`k'`i'==95 | ha`k'`i'==195 | ha`k'`i'==295 | ha`k'`i'==395 | ha`k'`i'==495 | ha`k'`i'==595 | ha`k'`i'==695 | ha`k'`i'==795 | ha`k'`i'==895 replace mtrav_inter`k'_`i'=4 if ha`k'`i'==34 | ha`k'`i'==94 | ha`k'`i'==194 | ha`k'`i'==294 | ha`k'`i'==394 | ha`k'`i'==494 | ha`k'`i'==594 | ha`k'`i'==694 | ha`k'`i'==794 | ha`k'`i'==894 replace mtrav_inter`k'_`i'=-7 if mtrav_inter`k'_`i'==. local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ generate mtrav`k'_1=mtrav_inter`k'_1 local i=2 while `i'<=number_max_episodes{ generate mtrav`k'_`i'=. local l=`i'-1 local j=2 while `j'<97{ replace mtrav`k'_`i'=mtrav_inter`k'_`j' if number_episode`k'_`j'==`i' & mtrav`k'_`i'==. & mtrav`k'_`l'!=. local j=`j'+1 } local i=`i'+1 } local k=`k'+1 } drop mtrav_inter* **INFORMATION COMMUNICATION TECHNOLOGY *************************************** local k=1 while `k'<8{ local i=1 while `i'<10{ generate ict_inter`k'_`i'=1 if ha`k'0`i'==901 | ha`k'0`i'==902 | ha`k'0`i'==906 replace ict_inter`k'_`i'=0 if ict_inter`k'_`i'==. local i=`i'+1 } local i=10 while `i'<97{ generate ict_inter`k'_`i'=1 if ha`k'`i'==901 | ha`k'`i'==902 | ha`k'`i'==906 replace ict_inter`k'_`i'=0 if ict_inter`k'_`i'==. local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ generate ict`k'_1=ict_inter`k'_1 local i=2 while `i'<=number_max_episodes{ generate ict`k'_`i'=. local l=`i'-1 local j=2 while `j'<97{ replace ict`k'_`i'=ict_inter`k'_`j' if number_episode`k'_`j'==`i' & ict`k'_`i'==. & ict`k'_`l'!=. local j=`j'+1 } local i=`i'+1 } local k=`k'+1 } drop ict_inter* **LOCATION VARIABLES ******************** local k=1 while `k'<8{ local i=1 while `i'<10{ generate eloc_inter`k'_`i'=8 if (ha`k'0`i'>=31 & ha`k'0`i'<=37) | (ha`k'0`i'>=91 & ha`k'0`i'<=97) | (ha`k'0`i'>=191 & ha`k'0`i'<=197) | (ha`k'0`i'>=291 & ha`k'0`i'<=297) | (ha`k'0`i'>=391 & ha`k'0`i'<=397) | (ha`k'0`i'>=491 & ha`k'0`i'<=497) | (ha`k'0`i'>=591 & ha`k'0`i'<=597) | (ha`k'0`i'>=691 & ha`k'0`i'<=697) | (ha`k'0`i'>=791 & ha`k'0`i'<=797) | (ha`k'0`i'>=891 & ha`k'0`i'<=897) replace eloc_inter`k'_`i'=3 if ha`k'0`i'==0 | ha`k'0`i'==20 | ha`k'0`i'==40 | ha`k'0`i'==50 | ha`k'0`i'==55 | ha`k'0`i'==60 | ha`k'0`i'==70 | ha`k'0`i'==80 replace eloc_inter`k'_`i'=1 if pl`k'0`i'==1 replace eloc_inter`k'_`i'=6 if ha`k'0`i'==440 | ha`k'0`i'==770 replace eloc_inter`k'_`i'=5 if (ha`k'0`i'>=300 & ha`k'0`i'<=390) | ha`k'0`i'==580 replace eloc_inter`k'_`i'=4 if (ha`k'0`i'==500) | ((ha`k'0`i'>=501 & ha`k'0`i'<=520) & pl`k'0`i'!=1) | ((ha`k'0`i'>=521 & ha`k'0`i'<=551) & pl`k'0`i'!=1) | ((ha`k'0`i'>=570 & ha`k'0`i'<=575) & pl`k'0`i'!=1) | ha`k'0`i'==520 replace eloc_inter`k'_`i'=7 if (ha`k'0`i'==640 | ha`k'0`i'==650) & (pl`k'0`i'==2 | pl`k'0`i'==3) replace eloc_inter`k'_`i'=9 if (ha`k'0`i'>=700 & ha`k'0`i'<=740) | (ha`k'0`i'>770 & ha`k'0`i'<=781) | (ha`k'0`i'==760 & pl`k'0`i'>2) | (ha`k'0`i'>=800 & ha`k'0`i'<=830) | ((ha`k'0`i'>=840 & ha`k'0`i'<=890) & pl`k'0`i'>2) | (ha`k'0`i'>=900 & pl`k'0`i'>2) replace eloc_inter`k'_`i'=-8 if eloc_inter`k'_`i'==. local i=`i'+1 } local i=10 while `i'<97{ generate eloc_inter`k'_`i'=8 if (ha`k'`i'>=31 & ha`k'`i'<=37) | (ha`k'`i'>=91 & ha`k'`i'<=97) | (ha`k'`i'>=191 & ha`k'`i'<=197) | (ha`k'`i'>=291 & ha`k'`i'<=297) | (ha`k'`i'>=391 & ha`k'`i'<=397) | (ha`k'`i'>=491 & ha`k'`i'<=497) | (ha`k'`i'>=591 & ha`k'`i'<=597) | (ha`k'`i'>=691 & ha`k'`i'<=697) | (ha`k'`i'>=791 & ha`k'`i'<=797) | (ha`k'`i'>=891 & ha`k'`i'<=897) replace eloc_inter`k'_`i'=3 if ha`k'`i'==0 | ha`k'`i'==20 | ha`k'`i'==40 | ha`k'`i'==50 | ha`k'`i'==55 | ha`k'`i'==60 | ha`k'`i'==70 | ha`k'`i'==80 replace eloc_inter`k'_`i'=1 if pl`k'`i'==1 replace eloc_inter`k'_`i'=6 if ha`k'`i'==440 | ha`k'`i'==770 replace eloc_inter`k'_`i'=5 if (ha`k'`i'>=300 & ha`k'`i'<=390) | ha`k'`i'==580 replace eloc_inter`k'_`i'=4 if (ha`k'`i'==500) | ((ha`k'`i'>=501 & ha`k'`i'<=520) & pl`k'`i'!=1) | ((ha`k'`i'>=521 & ha`k'`i'<=551) & pl`k'`i'!=1) | ((ha`k'`i'>=570 & ha`k'`i'<=575) & pl`k'`i'!=1) | ha`k'`i'==520 replace eloc_inter`k'_`i'=7 if (ha`k'`i'==640 | ha`k'`i'==650) & (pl`k'`i'==2 | pl`k'`i'==3) replace eloc_inter`k'_`i'=9 if (ha`k'`i'>=700 & ha`k'`i'<=740) | (ha`k'`i'>770 & ha`k'`i'<=781) | (ha`k'`i'==760 & pl`k'`i'>2) | (ha`k'`i'>=800 & ha`k'`i'<=830) | ((ha`k'`i'>=840 & ha`k'`i'<=890) & pl`k'`i'>2) | (ha`k'`i'>=900 & pl`k'`i'>2) replace eloc_inter`k'_`i'=-8 if eloc_inter`k'_`i'==. local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ generate eloc`k'_1=eloc_inter`k'_1 local i=2 while `i'<=number_max_episodes{ generate eloc`k'_`i'=. local l=`i'-1 local j=2 while `j'<97{ replace eloc`k'_`i'=eloc_inter`k'_`j' if number_episode`k'_`j'==`i' & eloc`k'_`i'==. & eloc`k'_`l'!=. local j=`j'+1 } local i=`i'+1 } local k=`k'+1 } drop eloc_inter* **IN AND OUT VARIABLE ********************** local k=1 while `k'<8{ local i=1 while `i'<10{ generate inout_inter`k'_`i'=3 if ((ha`k'0`i'>=31 & ha`k'0`i'<=37) | (ha`k'0`i'>=91 & ha`k'0`i'<=97) | (ha`k'0`i'>=191 & ha`k'0`i'<=197) | (ha`k'0`i'>=291 & ha`k'0`i'<=297) | (ha`k'0`i'>=391 & ha`k'0`i'<=397) | (ha`k'0`i'>=491 & ha`k'0`i'<=497) | (ha`k'0`i'>=591 & ha`k'0`i'<=597) | (ha`k'0`i'>=691 & ha`k'0`i'<=697) | (ha`k'0`i'>=791 & ha`k'0`i'<=797) | (ha`k'0`i'>=891 & ha`k'0`i'<=897)) & (ha`k'0`i'!=35 & ha`k'0`i'!=95 & ha`k'0`i'!=195 & ha`k'0`i'!=295 & ha`k'0`i'!=395 & ha`k'0`i'!=495 & ha`k'0`i'!=595 & ha`k'0`i'!=695 & ha`k'0`i'!=795 & ha`k'0`i'!=895) & (ha`k'0`i'!=34 & ha`k'0`i'!=94 & ha`k'0`i'!=194 & ha`k'0`i'!=294 & ha`k'0`i'!=394 & ha`k'0`i'!=494 & ha`k'0`i'!=594 & ha`k'0`i'!=694 & ha`k'0`i'!=794 & ha`k'0`i'!=894) replace inout_inter`k'_`i'=1 if (ha`k'0`i'>=100 & ha`k'0`i'<=125) | (ha`k'0`i'>=141 & ha`k'0`i'<=142) | ha`k'0`i'==180 | ha`k'0`i'==240 | ha`k'0`i'==400 | ha`k'0`i'==430 | ha`k'0`i'==410 | (ha`k'0`i'>=450 & ha`k'0`i'<=480) | ha`k'0`i'==711 | ha`k'0`i'==750 | ha`k'0`i'==751 | (ha`k'0`i'>=840 & ha`k'0`i'<=873) | ha`k'0`i'==882 | (ha`k'0`i'>=917 & ha`k'0`i'<=928) | ha`k'0`i'==171 | (ha`k'0`i'>=301 & ha`k'0`i'<=360) | ha`k'0`i'==650 | ha`k'0`i'==720 | ha`k'0`i'==730 | ha`k'0`i'==740 | ha`k'0`i'==770 | ha`k'0`i'==881 | ha`k'0`i'==440 | ha`k'0`i'==580 replace inout_inter`k'_`i'=2 if (ha`k'0`i'>=130 & ha`k'0`i'<=131) | (ha`k'0`i'>=151 & ha`k'0`i'<171) | ha`k'0`i'==172 | ha`k'0`i'==250 | ha`k'0`i'==440 | ha`k'0`i'==580 | (ha`k'0`i'>=800 & ha`k'0`i'<=830) | ha`k'0`i'==35 | ha`k'0`i'==95 | ha`k'0`i'==195 | ha`k'0`i'==295 | ha`k'0`i'==395 | ha`k'0`i'==495 | ha`k'0`i'==595 | ha`k'0`i'==695 | ha`k'0`i'==795 | ha`k'0`i'==895 replace inout_inter`k'_`i'=-8 if inout_inter`k'_`i'==. local i=`i'+1 } local i=10 while `i'<97{ generate inout_inter`k'_`i'=3 if (ha`k'`i'>=31 & ha`k'`i'<=37) | (ha`k'`i'>=91 & ha`k'`i'<=97) | (ha`k'`i'>=191 & ha`k'`i'<=197) | (ha`k'`i'>=291 & ha`k'`i'<=297) | (ha`k'`i'>=391 & ha`k'`i'<=397) | (ha`k'`i'>=491 & ha`k'`i'<=497) | (ha`k'`i'>=591 & ha`k'`i'<=597) | (ha`k'`i'>=691 & ha`k'`i'<=697) | (ha`k'`i'>=791 & ha`k'`i'<=797) | (ha`k'`i'>=891 & ha`k'`i'<=897) & (ha`k'`i'!=35 & ha`k'`i'!=95 & ha`k'`i'!=195 & ha`k'`i'!=295 & ha`k'`i'!=395 & ha`k'`i'!=495 & ha`k'`i'!=595 & ha`k'`i'!=695 & ha`k'`i'!=795 & ha`k'`i'!=895) & (ha`k'`i'!=34 & ha`k'`i'!=94 & ha`k'`i'!=194 & ha`k'`i'!=294 & ha`k'`i'!=394 & ha`k'`i'!=494 & ha`k'`i'!=594 & ha`k'`i'!=694 & ha`k'`i'!=794 & ha`k'`i'!=894) replace inout_inter`k'_`i'=1 if (ha`k'`i'>=100 & ha`k'`i'<=125) | (ha`k'`i'>=141 & ha`k'`i'<=142) | ha`k'`i'==180 | ha`k'`i'==240 | ha`k'`i'==400 | ha`k'`i'==430 | ha`k'`i'==410 | (ha`k'`i'>=450 & ha`k'`i'<=480) | ha`k'`i'==711 | ha`k'`i'==750 | ha`k'`i'==751 | (ha`k'`i'>=840 & ha`k'`i'<=873) | ha`k'`i'==882 | (ha`k'`i'>=917 & ha`k'`i'<=928) | ha`k'`i'==171 | (ha`k'`i'>=301 & ha`k'`i'<=360) | ha`k'`i'==650 | ha`k'`i'==720 | ha`k'`i'==730 | ha`k'`i'==740 | ha`k'`i'==770 | ha`k'`i'==881 | ha`k'`i'==440 | ha`k'`i'==580 replace inout_inter`k'_`i'=2 if (ha`k'`i'>=130 & ha`k'`i'<=131) | (ha`k'`i'>=151 & ha`k'`i'<171) | ha`k'`i'==172 | ha`k'`i'==250 | (ha`k'`i'>=800 & ha`k'`i'<=830) | ha`k'`i'==35 | ha`k'`i'==95 | ha`k'`i'==195 | ha`k'`i'==295 | ha`k'`i'==395 | ha`k'`i'==495 | ha`k'`i'==595 | ha`k'`i'==695 | ha`k'`i'==795 | ha`k'`i'==895 | ha`k'`i'==34 | ha`k'`i'==94 | ha`k'`i'==194 | ha`k'`i'==294 | ha`k'`i'==394 | ha`k'`i'==494 | ha`k'`i'==594 | ha`k'`i'==694 | ha`k'`i'==794 | ha`k'`i'==894 replace inout_inter`k'_`i'=-8 if inout_inter`k'_`i'==. local i=`i'+1 } local k=`k'+1 } local k=1 while `k'<8{ generate inout`k'_1=inout_inter`k'_1 local i=2 while `i'<=number_max_episodes{ generate inout`k'_`i'=. local l=`i'-1 local j=2 while `j'<97{ replace inout`k'_`i'=inout_inter`k'_`j' if number_episode`k'_`j'==`i' & inout`k'_`i'==. & inout`k'_`l'!=. local j=`j'+1 } local i=`i'+1 } local k=`k'+1 } drop inout_inter* **WE HAVE THE FOLLOWING ERRORS ******************************* **mtrav=1 & inout==2 --> 1 observation --> activity=793 --> It must be changed to inout==3 --> To be done after the reshape **mtrav=-7 & inout==3 --> 16 observation --> activities finish in "96" or "97" --> It must be changed to mtrav==2 --> To be done after the reshape ********************************************************** expand 7 sort tbonr generate day=. replace day=1 if _n==1 local j=1 while `j'<=_N{ local i=`j'-1 replace day=day[`i']+1 if tbonr[`i']==tbonr[`j'] & _n==`j' replace day=1 if tbonr[`i']!=tbonr[`j'] & _n==`j' local i=`i'+1 local j=`j'+1 } sort tbonr day local i=1 while `i'<=number_max_episodes{ generate av`i'=. for num 1/7: replace av`i'=avX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate main`i'=. for num 1/7: replace main`i'=mainX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate sec`i'=. for num 1/7: replace sec`i'=secX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate time`i'=. for num 1/7: replace time`i'=timeX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate clockst`i'=. for num 1/7: replace clockst`i'=clockstX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate start`i'=. for num 1/7: replace start`i'=startX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate end`i'=. for num 1/7: replace end`i'=endX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate mtrav`i'=. for num 1/7: replace mtrav`i'=mtravX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate ict`i'=. for num 1/7: replace ict`i'=ictX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate eloc`i'=. for num 1/7: replace eloc`i'=elocX_`i' if day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ generate inout`i'=. for num 1/7: replace inout`i'=inoutX_`i' if day==X local i=`i'+1 } **WE NOW CREATE THE CALENDAR DAY ******************************** local i=1 while `i'<=number_max_episodes{ generate cday`i'=. for num 1/7: replace cday`i'=X if week==40 & day==X local i=`i'+1 } local i=1 while `i'<=number_max_episodes{ for num 1/7: replace cday`i'=X+7 if week==41 & day==X local i=`i'+1 } egen group=group(tbonr day) keep tbonr day av* main* sec* time* clockst* start* end* inout* eloc* mtrav* ict* group cday* for num 1/7: drop avX_* mainX_* secX_* timeX_* clockstX_* startX_* endX_* time_transcurredX_* mtravX_* ictX_* elocX_* inoutX_* reshape long av main sec time clockst start end mtrav ict eloc inout cday, i(group) j(epnum) drop if av==. compress generate sppart=-9 generate alone=-9 generate child=-9 generate oad=-9 **CHECKS OF "mtrav" AND "inout" ******************************* tab main if (mtrav==3 | mtrav==4) /* main | Freq. Percent Cum. ------------+----------------------------------- 11 | 264 1.89 1.89 63 | 2,467 17.66 19.55 64 | 1,648 11.80 31.35 65 | 769 5.51 36.86 66 | 1,303 9.33 46.18 67 | 4,203 30.09 76.27 68 | 3,314 23.73 100.00 ------------+----------------------------------- Total | 13,968 100.00 */ replace inout=2 if mtrav==3 | mtrav==4 sort tbonr day ***labels ********** #delimit; lab var cday "Calendar day diary kept"; lab var time "Duration of activity in minutes"; lab var clockst "Start time on 24 hour clock"; lab var start "Start minute (of 1440 min 0=begin of diary)"; lab var end "End minute (of 1440 min 1440=end of diary)"; lab var epnum "Episode number"; lab var main "Main act, 69 category list"; lab def main 1 "imputed personal or household care" 2 "sleep and naps" 3 "imputed sleep" 4 "wash, dress, care for self" 5 "meals at work or school" 6 "other meals or snacks" 7 "paid work- job (not at home)" 8 "paid work at home" 9 "second or other job not at home" 10 "unpaid work to generate household income" 11 "travel as a part of work" 12 "work breaks" 13 "other time at workplace" 14 "look for work" 15 "regular schooling, education" 16 "homework" 17 "leisure/other education or training" 18 "food preparation, cooking" 19 "set table, wash/put away dishes" 20 "cleaning" 21 "laundry, ironing, clothing repair" 22 " tain home/vehicle" 23 "other domestic work" 24 "purchase goods" 25 "consume personal care services" 26 "consume other services" 27 "pet care (not walk dog)" 28 "physical, medical child care" 29 "teach, help with homework" 30 "read to, talk or play with child" 31 "supervise, accompany, other child care" 32 "adult care" 33 "voluntary, civic, organisational act" 34 "worship and religion" 35 "general out-of-home leisure" 36 "attend sporting event" 37 "cinema, theatre, opera, concert" 38 "other public event, venue" 39 "restaurant, café, bar, pub" 40 "party, social event, gambling" 41 "imputed time away from home" 42 "general sport or exercise" 43 "walking" 44 "cycling" 45 "other outside recreation" 46 "gardening/pick mushrooms" 47 "walk dogs" 48 "receive or visit friends" 49 "conversation (in person, phone)" 50 "other in-home social, games" 51 "general indoor leisure" 52 "art or music" 53 "correspondence (not e-lab mail)" 54 "knit, crafts or hobbies" 55 "relax, think, do nothing" 56 "read" 57 "listen to music etc" 58 "listen to radio" 59 "watch TV, video, DVD" 60 "computer games" 61 "e-lab mail, surf internet, computing" 62 "no act but recorded transport mode" 63 "travel to/from work" 64 "education travel" 65 "voluntary/civic/religious travel" 66 "child/adult care travel" 67 "shop, person/hhld care travel" 68 "other travel" 69 "no recorded activity"; lab val main main; lab var sec "Secondary act, 69 category list"; lab def sec -9 "no secondary activity in study" -7 "no second act collected from diary group" 1 "imputed personal or household care" 2 "sleep and naps" 3 "imputed sleep" 4 "wash, dress, care for self" 5 "meals at work or school" 6 "other meals or snacks" 7 "paid work-main job (not at home)" 8 "paid work at home" 9 "second or other job not at home" 10 "unpaid work to generate household income" 11 "travel as a part of work" 12 "work breaks" 13 "other time at workplace" 14 "look for work" 15 "regular schooling, education" 16 "homework" 17 "leisure/other education or training" 18 "food preparation, cooking" 19 "set table, wash/put away dishes" 20 "cleaning" 21 "laundry, ironing, clothing repair" 22 "maintain home/vehicle" 23 "other domestic work" 24 "purchase goods" 25 "consume personal care services" 26 "consume other services" 27 "pet care (not walk dog)" 28 "physical, medical child care" 29 "teach, help with homework" 30 "read to, talk or play with child" 31 "supervise, accompany, other child care" 32 "adult care" 33 "voluntary, civic, organisational act" 34 "worship and religion" 35 "general out-of-home leisure" 36 "attend sporting event" 37 "cinema, theatre, opera, concert" 38 "other public event, venue" 39 "restaurant, café, bar, pub" 40 "party, social event, gambling" 41 "imputed time away from home" 42 "general sport or exercise" 43 "walking" 44 "cycling" 45 "other outside recreation" 46 "gardening/pick mushrooms" 47 "walk dogs" 48 "receive or visit friends" 49 "conversation (in person, phone)" 50 "other in-home social, games" 51 "general indoor leisure" 52 "art or music" 53 "correspondence (not e-mail)" 54 "knit, crafts or hobbies" 55 "relax, think, do nothing" 56 "read" 57 "listen to music etc" 58 "listen to radio" 59 "watch TV, video, DVD" 60 "computer games" 61 "e-mail, surf internet, computing" 62 "no act but recorded transport mode" 63 "travel to/from work" 64 "education travel" 65 "voluntary/civic/religious travel" 66 "child/adult care travel" 67 "shop, person/hhld care travel" 68 "other travel" 69 "no recorded activity"; lab val sec sec; lab var av "Main act, old MTUS 41 category list"; lab def av 1 "paid work" 2 "paid work at home" 3 "second job" 4 "school/classes" 5 "travel to/from work" 6 "cook, wash up" 7 "housework" 8 "odd jobs" 9 "gardening" 10 "shopping" 11 "childcare" 12 "domestic travel" 13 "dress/personal care" 14 "consume services" 15 "meals, snacks" 16 "sleep" 17 "free time travel" 18 "excursions" 19 "active sport" 20 "passive sport" 21 "walks" 22 "religious activity" 23 "civic activity" 24 "cinema, theatre" 25 "dances, parties" 26 "social club" 27 "pub" 28 "restaurant" 29 "visit friends" 30 "listen to radio" 31 "TV, video" 32 "listen to CDs records" 33 "study" 34 "read books" 35 "read paper/magazine" 36 "relax" 37 "conversation" 38 "entertain friends" 39 "knit, sew" 40 "other leisure" 41 "missing"; lab val av av; lab var inout "Inside or outside"; lab def inout -9 "location not collected by study" -8 "location unknown" -7 "location not collected from diary group" 1 "inside" 2 "outside" 3 "in vehicle"; lab val inout inout; lab var eloc "Location"; lab def eloc -9 "location not collected by study" -8 "location unknown" -7 "location not collected from diary group" 1 "at own home" 2 "at another’s home" 3 "at workplace" 4 "at school" 5 "at services or shops" 6 "at restaurant, bar etc" 7 "at place of worship" 8 "travelling" 9 "other locations"; lab val eloc eloc; lab var ict "Used ict during activity"; lab def ict -9 "could not be created for study" -7 "not collected for diary group" 0 "no" 1 "yes"; lab val ict ict; lab var mtrav "Mode of transport"; lab def mtrav -9 "mode not collected by study" -8 "missing" -7 "not travelling" 1 "travel by car etc" 2 "public transport" 3 "walk / on foot" 4 "other physical transport" 5 "other/unspecified transport"; lab val mtrav mtrav; lab var alone "Time alone or with strangers"; lab def alone -9 "could not be created for study" -7 "not collected for diary group" 0 "no" 1 "yes"; lab val alone alone; lab var child "Child aged <18 present"; lab def child -9 "could not be created for study" -7 "not collected for diary group" 0 "no" 1 "yes"; lab val child child; lab var sppart "Spouse or partner present"; lab def sppart -9 "could not be created for study" -7 "not collected for diary group" 0 "no" 1 "yes"; lab val sppart sppart; lab var oad "Other adult present"; lab def oad -9 "could not be created for study" -7 "not collected for diary group" 0 "no" 1 "yes"; lab val oad oad; lab var day "Day of week diary kept"; lab def day 1 "Sunday" 2 "Monday" 3 "Tuesday" 4 "Wednesday" 5 "Thursday" 6 "Friday" 7 "Saturday" 8 "Whole week average" 9 "Unspecified weekday" 10 "Unspecified weekend day" -8 "missing" -9 "could not be created"; lab val day day; #delimit cr save Intermedio_W6.dta, replace use Net2000W_inter.dta, clear keep countreg survey swave msamp hldid persid id day month year diary badcase sex age ocombwt propwt tbonr sort tbonr day save Merge_W6.dta, replace use Intermedio_W6.dta,clear merge tbonr day using Merge_W6.dta keep countreg survey swave msamp hldid persid id day month year diary badcase sex age time clockst start end epnum main sec av inout eloc ict mtrav alone child sppart oad ocombwt propwt cday order countreg 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 ocombwt propwt saveold Intermedio_W6.dta, replace ***************************************************************************************************************************************************************************** ***************************************************************************************************************************************************************************** *************************************************************** WE NOW PREPARE THE DIFFERENT VERSIONS ********************************************************************** **************************************************************************************************************************************************************************** **************************************************************************************************************************************************************************** **W553 ******* use Net2000W_inter.dta, clear keep countreg survey swave msamp hldid persid id parntid1 parntid2 partid day month year diary badcase hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age famstat cphome singpar relrefp civstat cohab citizen empstat emp unemp student retired empsp workhrs empinclm occup sector educa edtry rushed health carer disab av* ocombwt propwt sort swave msamp hldid persid id saveold Net2000W553.dta, replace **W58 ***** use Net2000W_inter.dta, clear drop tbonr drop if age<18 sort swave msamp hldid persid id saveold Net2000W58.dta, replace **W58KID ******** use Net2000W_inter.dta, clear drop tbonr drop if age>=18 sort swave msamp hldid persid id saveold Net2000W58kid.dta, replace **W6 **** use Intermedio_W6.dta, clear drop if age<18 drop ocombwt propwt sort swave msamp hldid persid id epnum saveold Net2000W6.dta, replace **W6KID ******* use Intermedio_W6.dta, clear drop if age>=18 drop ocombwt propwt sort swave msamp hldid persid id epnum saveold Net2000W6kid.dta, replace ******************************* clear erase Net2000W_inter.dta erase Intermedio_W6.dta erase Merge_W6.dta