## ------------------------------------------------------------
## classification
## ------------------------------------------------------------
## iris "Petal.Width" partial dependence plot
##
# iris_rf <- rfsrc(Species ~., data = iris)
# iris_prtl <- plot.variable(iris_rf, xvar.names = "Petal.Width",
# partial=TRUE)
data(iris_prtl, package="ggRandomForests")
ggrf_obj <- gg_partial(iris_prtl)
plot(ggrf_obj)
## ------------------------------------------------------------
## regression
## ------------------------------------------------------------
## airquality "Wind" partial dependence plot
##
# airq_rf <- rfsrc(Ozone ~ ., data = airquality)
# airq_prtl <- plot.variable(airq_rf, xvar.names = "Wind",
# partial=TRUE, show.plot=FALSE)
data(airq_prtl, package="ggRandomForests")
ggrf_obj <- gg_partial(airq_prtl)
plot(ggrf_obj)
## ------------------------------------------------------------
## survival examples
## ------------------------------------------------------------
## survival "age" partial variable dependence plot
##
# data(veteran, package = "randomForestSRC")
# veteran_rf <- rfsrc(Surv(time,status)~., veteran, nsplit = 10, ntree = 100)
#
## 30 day partial plot for age
# veteran_prtl <- plot.variable(veteran_rf, surv.type = "surv",
# partial = TRUE, time=30,
# xvar.names = "age",
# show.plots=FALSE)
data(veteran_prtl, package="ggRandomForests")
ggrf_obj <- gg_partial(veteran_prtl)
plot(ggrf_obj)
Run the code above in your browser using DataLab