library(survival)
lung$status <- ifelse(lung$status == 2, 1, 0)
lung$age <- arules::discretize(lung$age, breaks = 3, labels = c("Low","Medium","High"))
library(SurvivalTests)
# \donttest{
out <- Sdescribe(time~age+status, lung)
plot(out, ylim = c(0,500))
plot(out)
# }
Run the code above in your browser using DataLab