53 lines
1.5 KiB
Plaintext
53 lines
1.5 KiB
Plaintext
clear
|
|
cd c:\chililabdata\data
|
|
use individres.dta
|
|
gen eventdate=res_sdate/86400000
|
|
keep individid res_seventtype eventdate
|
|
rename res_seventtype eventtype
|
|
gen year = year(eventdate)
|
|
replace year = 2004 if year <2004
|
|
save statevent, replace
|
|
|
|
use individres.dta
|
|
gen eventdate=res_edate/86400000 if res_edate!=.
|
|
keep individid res_eeventtype eventdate
|
|
rename res_eeventtype eventtype
|
|
gen year = year(eventdate)
|
|
replace year = 2013 if year > 2013
|
|
replace year = 2013 if eventdate==.
|
|
replace year = 2004 if year <2004
|
|
replace eventtype = "CONT" if eventdate==.
|
|
replace eventdate = mdy(12,31,2013) if eventdate==.
|
|
append using statevent
|
|
duplicates drop individ eventtype year, force
|
|
sort individid year
|
|
|
|
gen period = year[_n+1]-year if individ == individid[_n+1]
|
|
|
|
expand period if eventtype =="ENU" | eventtype =="IMG" | eventtype =="BTH"
|
|
sort individid year
|
|
by individid year: gen p=_n-1
|
|
replace year = year + p
|
|
keep if eventtype =="BTH" | eventtype =="ENU" | eventtype =="IMG" | eventtype =="ENT" | eventtype =="CONT"
|
|
merge m:1 individ using individual, keepusing(birthdate gender)
|
|
keep if _merge ==3
|
|
drop _merge
|
|
destring gender, replace
|
|
rename gender sex
|
|
replace birthdate=birthdate/86400000
|
|
|
|
format %td eventdate
|
|
format %td birthdate
|
|
|
|
gen birthyear = year(birthdate)
|
|
|
|
gen age = year - birthyear
|
|
drop if age < 0
|
|
drop if year < 2004
|
|
drop if year > 2013
|
|
drop if age > 100
|
|
d
|
|
save c:\chililabdata\data\death\longindivid, replace
|
|
drop if age < 60
|
|
save c:\chililabdata\data\death\60longindivid, replace
|