# \donttest{
# a penalized survival model
data(testdata)
library(prodlim)
fit.su <- shr(Hist(time=list(l,r),id)~cov,data=testdata,method="Splines")
summary(fit.su)
# Weibull survival model
data(testdata)
fit.su <- shr(Hist(time=list(l,r),id)~cov,data=testdata)
summary(fit.su)
# }
Run the code above in your browser using DataLab