## Not run:
# ## ------------------------------------------------------------
# ## survival analysis
# ## first and second order depths for all variables
# ## ------------------------------------------------------------
#
# data(veteran, package = "randomForestSRC")
# v.obj <- rfsrc(Surv(time, status) ~ . , data = veteran)
# v.max <- max.subtree(v.obj)
#
# # first and second order depths
# print(round(v.max$order, 3))
#
# # the minimal depth is the first order depth
# print(round(v.max$order[, 1], 3))
#
# # strong variables have minimal depth less than or equal
# # to the following threshold
# print(v.max$threshold)
#
# # this corresponds to the set of variables
# print(v.max$topvars)
#
# ## ------------------------------------------------------------
# ## regression analysis
# ## try different levels of conservativeness
# ## ------------------------------------------------------------
#
# mtcars.obj <- rfsrc(mpg ~ ., data = mtcars)
# max.subtree(mtcars.obj)$topvars
# max.subtree(mtcars.obj, conservative = TRUE)$topvars
# ## End(Not run)
Run the code above in your browser using DataLab