# \donttest{
data(Paq1000)
library(prodlim)
fit.splines <- idm(formula02=Hist(time=t,event=death,entry=e)~certif,
formula01=Hist(time=list(l,r),event=dementia)~certif,
formula12=~1,
method="Splines",
data=Paq1000)
print(fit.splines)
# }
Run the code above in your browser using DataLab