clear cd "C:\CTUR\UKTUS 2015\UKDA\Data" use "uktus15_household.dta" rename serial hldid keep hldid hh_wt DMSex_P1 - DMSex_P10 DVAge_P1 - DVAge_P10 /// Relate1_P1 - Relate10_P10 forvalues i = 1/10 { qui recode Relate`i'_P`i'(-1=0) } reshape long DMSex_P DVAge_P Relate1_P Relate2_P /// Relate3_P Relate4_P Relate5_P Relate6_P Relate7_P Relate8_P Relate9_P /// Relate10_P , i(hldid) j(pnum) order hldid pnum DMSex_P DVAge_P Relate*_P drop if DMSex_P == . & DVAge_P == . forvalues i = 1/10 { qui recode Relate`i'_P (-2=.) } *------------------- gen chage = . forvalues i = 1/10 { replace chage = DVAge_P if Relate`i'_P == 4|Relate`i'_P == 5|Relate`i'_P == 6 } bysort hldid : egen agekid2 = min(chage) recode agekid2 (0/4=1) (5/12=2) (13/17=3) (18/max=4) , gen(agekidx) lab var agekidx "" gen nch = 0 replace nch = 1 if DVAge_P > -1 & DVAge_P < 18 bysort hldid : egen nchild = sum(nch) drop nch chage ta agekidx nchild , mi sort hldid pnum bysort hldid: gen nob = _n keep if nob == 1 keep hldid hh_wt agekid2 agekidx nchild cd "C:\CTUR\UKDATA SERIES\UK2015\Data" saveold "agekidvars.dta", replace