if (FALSE) {
#---------------------------------------------------------------------
# MASS::Boston data - regression random forest
#---------------------------------------------------------------------
data(Boston_rfsrc, package="ggRandomForests")
# Cut the codependent variable
rm_pts <- cut_distribution(rfsrc_boston$xvar$rm, groups=6)
rm_grp <- cut(rfsrc_boston$xvar$rm, breaks=rm_pts)
# plot.variable for lstat on subsets of rm (this will take some time.)
partial_coplot_boston <- gg_partial_coplot(rfsrc_boston, xvar="lstat",
groups=rm_grp,
show.plots=FALSE)
}
Run the code above in your browser using DataLab