*clear all *cd "C:\CTUR\UKTUS 2015\Data\Final" *use "Survey_FINAL_WTD (HH level).dta" *drop if IMonth == -7 *rename Serial hldid clear cd "C:\CTUR\UKTUS 2015\UKDA\Data" use "uktus15_household.dta" drop if IMonth == -7 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=.) } *------------------- qui replace Relate1_P = 4 if hldid == 17070716 & pnum == 2 qui replace Relate2_P = 8 if hldid == 17070716 & pnum == 1 qui replace Relate1_P = 4 if hldid == 20150918 & pnum == 3 qui replace Relate3_P = 8 if hldid == 20150918 & pnum == 1 qui replace Relate1_P = 4 if hldid == 14120106 & pnum == 3 qui replace Relate3_P = 8 if hldid == 14120106 & pnum == 1 qui replace Relate1_P = 4 if hldid == 14120516 & pnum == 3 qui replace Relate2_P = 4 if hldid == 14120516 & pnum == 3 qui replace Relate3_P = 8 if hldid == 14120516 & pnum == 1 qui replace Relate3_P = 8 if hldid == 14120516 & pnum == 2 qui replace Relate1_P = 4 if hldid == 18051002 & pnum == 3 qui replace Relate3_P = 8 if hldid == 18051002 & pnum == 1 qui replace Relate1_P = 4 if hldid == 14160210 & pnum == 3 qui replace Relate1_P = 4 if hldid == 14160210 & pnum == 4 qui replace Relate2_P = 4 if hldid == 14160210 & pnum == 3 qui replace Relate2_P = 4 if hldid == 14160210 & pnum == 4 qui replace Relate3_P = 8 if hldid == 14160210 & pnum == 1 qui replace Relate3_P = 8 if hldid == 14160210 & pnum == 2 qui replace Relate4_P = 8 if hldid == 14160210 & pnum == 1 qui replace Relate4_P = 8 if hldid == 14160210 & pnum == 2 qui replace Relate1_P = 1 if hldid == 21290912 & pnum == 2 qui replace Relate2_P = 1 if hldid == 21290912 & pnum == 1 qui replace Relate1_P = 3 if hldid == 18220903 & pnum == 2 qui replace Relate2_P = 3 if hldid == 18220903 & pnum == 1 qui replace Relate2_P = 8 if hldid == 16120108 & pnum == 3 qui replace Relate3_P = 4 if hldid == 16120108 & pnum == 2 qui replace Relate3_P = 8 if hldid == 18160214 & pnum == 2 qui replace Relate2_P = 4 if hldid == 18160214 & pnum == 3 qui replace Relate3_P = 13 if hldid == 19160311 & pnum == 4 qui replace Relate4_P = 13 if hldid == 19160311 & pnum == 3 *------------------- gen partner = 0 gen partid = . forvalues i = 1/10 { qui replace partner = 1 if (Relate`i'_P == 1|Relate`i'_P == 2) qui replace partner = 2 if (Relate`i'_P == 3) qui replace partid = `i' if (Relate`i'_P == 1|Relate`i'_P == 2) qui replace partid = `i' if (Relate`i'_P == 3) } gen civstat = -8 replace civstat = 1 if partner == 1|partner == 2 replace civstat = 2 if partner == 0 replace civstat = 2 if DVAge_P < 16 gen cohab = . replace cohab = -7 if partner == 0 replace cohab = 1 if partner == 2 replace cohab = 0 if partner == 1 ta cohab civstat rename pnum persid keep hldid persid civstat cohab partid cd "C:\CTUR\UKDATA SERIES\UK2015\Data" save "partnervars.dta", replace