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

use rrdat1, clear

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

ltable tf des, intervals(30) gr title("Life Table Survivor Function") ///
ysc(r(1)) ylabel(0(0.2)1) xtitle("analysis time") ///
saving("Figure 3_1_1", replace)   

log close