ped <- tumor[1:100, ] %>%
as_ped(Surv(days, status) ~ complications, cut = seq(0, 3000, by = 50))
pam <- pamm(ped_status ~ s(tend) + complications, data = ped)
summary(pam)
## Alternatively
pamm(
ped_status ~ s(tend) + complications,
data = tumor[1:100, ],
trafo_args = list(formula = Surv(days, status)~complications))
Run the code above in your browser using DataLab