data(slopop)
data(rdata)
fit <- rsadd(Surv(time,cens)~sex+ratetable(age=age*365,sex=sex,
year=year),ratetable=slopop,data=rdata,method="EM")
survfit.rsadd(fit,newdata=data.frame(sex=1,age=60,year=17000))
Run the code above in your browser using DataLab