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)
weibull.test(time~age, lung)
Run the code above in your browser using DataLab