## veteran data
## randomized trial of two treatment regimens for lung cancer
#data(veteran, package = "randomForestSRCM")
#veteran_rf <- rfsrc(Surv(time, status) ~ ., data = veteran, ntree = 100)
data(veteran_rf, package="ggRandomForests")
ggrf.obj <- gg_survival(veteran_rf)
plot(ggrf.obj)
Run the code above in your browser using DataLab