# NOT RUN {
data(slopop)
data(rdata)
rdata$agegr <-cut(rdata$age,seq(40,95,by=5))
nessie(Surv(time,cens)~agegr+ratetable(age=age*365.241,sex=sex,year=year),
ratetable=slopop,data=rdata,times=c(1,3,5,10,15))
# }
Run the code above in your browser using DataLab