## airq data
## Load the stored randomForestSRC object for airq
load(air1_rf, package="ggRandomForests)
# Save the "Wind" partial plot data
airq_prtl <- plot.variable(airq_rf, xvar.names = "Wind",
partial=TRUE, show.plots=FALSE)
# Generate a ggRandomForests plot.
gg_dta <- gg_partial(airq_prtl)
plot(gg_dta)
Run the code above in your browser using DataLab