if (FALSE) {
#---------------------------------------------------------------------
# iris data - classification random forest
#---------------------------------------------------------------------
# load the rfsrc object from the cached data
data(rfsrc_iris, package="ggRandomForests")
# The interaction table
interaction_iris <- find.interaction(rfsrc_iris)
# plot the forest interaction table
gg_dta <- gg_interaction(interaction_iris)
plot(gg_dta, panel=TRUE)
#---------------------------------------------------------------------
# MASS::Boston data - regression random forest
#---------------------------------------------------------------------
# load the rfsrc object from the cached data
data(rfsrc_boston, package="ggRandomForests")
# The interaction table
interaction_boston <- find.interaction(rfsrc_boston)
# plot the forest interaction table
gg_dta <- gg_interaction(interaction_boston)
plot(gg_dta, panel=TRUE)
#---------------------------------------------------------------------
# randomForestSRC::pbc data - survival random forest
#---------------------------------------------------------------------
# load the rfsrc object from the cached data
data(rfsrc_pbc, package="ggRandomForests")
# The interaction table
interaction_pbc <- find.interaction(rfsrc_pbc)
# plot the forest interaction table
gg_dta <- gg_interaction(interaction_pbc)
plot(gg_dta, panel=TRUE)
}
Run the code above in your browser using DataLab