version 9
set scheme sj
capture log close
set more off
log using ehi6.log, replace

use rrdat1, clear

gen des   = tfin ~= ti               /*destination state*/
gen tf    = tfin - tstart + 1        /*ending time*/

gen coho2 = tb >= 468 & tb <= 504    /*cohort 2*/
gen coho3 = tb >= 588 & tb <= 624    /*cohort 3*/
gen lfx   = tstart - te              /*labor force experience*/
gen pnoj  = noj - 1                  /*previous number of jobs*/
gen women = sex==2                   /*women*/

stset tf, failure(des)

stcox edu coho2 coho3 lfx pnoj pres women, nohr 

stphplot, by(women) saving("Figure 9_3_1a",replace)

stcoxkm, by(women) m(i i i i) saving("Figure 9_3_1b",replace)

log close