37 lines
916 B
Plaintext
37 lines
916 B
Plaintext
use relationship
|
|
drop if (rel_edate != . & rel_edate < $refdate)
|
|
drop if (rel_sdate != . & rel_sdate > $refdate)
|
|
gen refdate = $refdate
|
|
sort individid
|
|
format refdate %td
|
|
sort individid
|
|
rename rel_partnerid partnerid
|
|
rename rel_sdate marrieddate
|
|
drop if strlen(partnerid) !=11
|
|
keep individid partnerid marrieddate
|
|
duplicates drop individid, force
|
|
save cross\crossrelationship, replace
|
|
|
|
gen individid1 = individid
|
|
replace individid = partnerid
|
|
replace partnerid = individid1
|
|
drop individid1
|
|
save cross\crossrelationship1, replace
|
|
|
|
use cross\crossrelationship
|
|
append using cross\crossrelationship1
|
|
sort partnerid
|
|
duplicates drop individid, force
|
|
save cross\crossrelationship, replace
|
|
merge partnerid using cross\crosspeducation
|
|
drop if _merge ==2
|
|
drop _merge
|
|
sort partnerid
|
|
merge partnerid using cross\crosspoccupation
|
|
drop if _merge ==2
|
|
drop _merge
|
|
drop refdate
|
|
sort individid
|
|
save cross\crossrelationship, replace
|
|
|