Derivation
variable: ident (table[s]: gen_spouse)
variable: idspouse (table[s]: gen_spouse)
variable: marital (table[s]: ahs_ahs1, cen_individ, crs_cenm, gp_gpform, css_sei, tb_tbh, tb_tbo, tb_tboto2007, tb_tbx, tb_tbxto2007)
variable: spoucur (table[s]: cen_individ, crs_cenm)
variable: spoupast (table[s]: cen_individ, crs_cenm)
variable: maridill (table[s]: tb_tbxto2007)
variable: idspouse (table[s]: gen_spouse)
variable: marendyr (table[s]: gen_spouse)
<Once the marital status report and spouse listing datasets are merged together they are split into what men and women are reporting per round/survey and merged together to assess whether each report is reported by the otehr partner:>
foreach spouse in wife husband {
preserve
if "`spouse'"=="wife" {
local sexi=1
local sexs=0
local S="H"
}
if "`spouse'"=="husband" {
local sexi=0
local sexs=1
local S="W"
}
*create dataset of what the spouse 2 (idspouse) reports
drop if ident_sex==`sexi'
rename (idspouse ident marital) (x`spouse' idspouse xmarital)
keep idspouse x`spouse' rd xmarital
bys idspouse rd: gen n=_n
sum n
local max=r(max)
reshape wide xmarital x`spouse' ,i(idspouse rd) j(n)
save ${tempfiles}\gen_spouse_`sexs', replace
restore
preserve
*create dataset of what spouse 1 (ident) reports and merge with the spouse 2 dataset
drop if ident_sex==`sexs'
drop if idspouse=="" | idspouse=="noid"
merge m:1 idspouse rd using ${tempfiles}\gen_spouse_`sexs', keep(master match) nogen
*create match var
gen match=.
forvalues x=1/`max' {
replace match=0 if ident==x`spouse'`x'
}
replace match=1 if match==. &(xmarital1==. | (xmarital1~=0 & x`spouse'1==""))
replace match=2 if match==. & x`spouse'1~="" | xmarital1==0
lab def match 0 "Matched" 1 "Missing data" 2 "Mismatch"
la val match match
drop x*
save ${tempfiles}\spouse_match_`sexi', replace
restore
}
