data(colcancer)
# linear effect
expreg <- expectreg.ipc(Surv(logfollowup, death) ~ sex + age, data = colcancer,
expectiles = c(0.05, 0.2, 0.5, 0.8, 0.95))
coef(expreg)
# \donttest{
# with p-splines, smoothing parameter selection with schall algorithm
expreg2 <- expectreg.ipc(Surv(logfollowup, death) ~ sex + rb(age), data = colcancer)
# smoothing parameter selection with AIC
expreg3 <- expectreg.ipc(Surv(logfollowup, death) ~ sex + rb(age), data = colcancer, smooth = "aic")
# manually selected smoothing parameter
expreg4 <- expectreg.ipc(Surv(logfollowup, death) ~ sex + rb(age), data = colcancer,
smooth = "fixed", lambda = 2)
plot(expreg2)
plot(expreg3)
plot(expreg4)
# }
Run the code above in your browser using DataLab