library(survival)
data(veteran)
set.seed(42)
# \donttest{
mod <- survdnn(Surv(time, status) ~ age + karno + celltype, data = veteran,
hidden = c(16, 8), epochs = 100, verbose = FALSE)
plot(mod, group_by = "celltype", times = 1:300)
# }
Run the code above in your browser using DataLab