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{
SANOVA(time~age+status, lung, alpha = 0.05)
# }
Run the code above in your browser using DataLab