# \donttest{
library(survstan)
library(dplyr)
veteran <- veteran %>%
mutate(across(c(trt, prior, celltype), as.factor))
fits <- rank_models(
formula = Surv(time, status) ~ celltype+karno,
data = veteran,
survreg = c("aftreg", "ahreg", "phreg", "poreg", "ypreg", "ehreg"),
baseline = c("exponential", "weibull", "lognormal", "loglogistic", "fatigue", "gamma", "rayleigh")
)
# }
Run the code above in your browser using DataLab