# NOT RUN {
if (require("rpart")) {
set.seed(42)
# Fit a CART on the Boston housing data set
data("Boston", package = "MASS")
rf = rpart(medv ~ ., data = Boston)
# Create a model object
mod = Predictor$new(rf, data = Boston[-which(names(Boston) == "medv")])
# Measure the interaction strength
ia = Interaction$new(mod)
# Plot the resulting leaf nodes
plot(ia)
# Extract the results
dat = ia$results
head(dat)
# }
# NOT RUN {
# Interaction also works with multiclass classification
rf = rpart(Species ~ ., data = iris)
mod = Predictor$new(rf, data = iris, type = "prob")
# For some models we have to specify additional arguments for the predict function
ia = Interaction$new(mod)
ia$plot()
# For multiclass classification models, you can choose to only show one class:
mod = Predictor$new(rf, data = iris, type = "prob", class = "virginica")
plot(Interaction$new(mod))
# }
# NOT RUN {
}
# }
Run the code above in your browser using DataLab