# NOT RUN {
data(slopop)
data(rdata)
#calculate the cumulative incidence curve
#note that the variable year is given in days since 01.01.1960 and that
#age must be multiplied by 365 in order to be expressed in days.
fit <- cmp.rel(Surv(time,cens)~sex+ratetable(age=age*365,sex=sex,
year=year),ratetable=slopop,data=rdata,tau=3652.41)
checktimes(fit,c(1,3),xscale=365.241)
# }
Run the code above in your browser using DataLab