
Last chance! 50% off unlimited learning
Sale ends in
## S3 method for class 'rfsrc':
plot.competing.risk(x, plots.one.page = FALSE, ...)
(rfsrc, grow)
or
(rfsrc, predict)
.## ------------------------------------------------------------
## follicular cell lymphoma
## ------------------------------------------------------------
data(follic, package = "randomForestSRC")
follic.obj <- rfsrc(Surv(time, status) ~ ., follic, nsplit = 3, ntree = 100)
plot.competing.risk(follic.obj)
## ------------------------------------------------------------
## competing risk analysis of pbc data from the survival package
## events are transplant (1) and death (2)
## ------------------------------------------------------------
if (library("survival", logical.return = TRUE)) {
data(pbc, package = "survival")
pbc$id <- NULL
plot.competing.risk(rfsrc(Surv(time, status) ~ ., pbc, nsplit = 10))
}
Run the code above in your browser using DataLab