# NOT RUN {
library(carData)
Rossi[1:5, 1:10]
library(survival)
mod.allison <- coxph(Surv(week, arrest) ~ fin + age + race + wexp + mar + paro + prio,
data = Rossi
)
mod.allison
z <- curve_surv(mod.allison, "prio")
# }
Run the code above in your browser using DataLab