# Train a model:
library(mlr3verse)
library(ranger)
data(bikes, package = "fmeffects")
set.seed(123)
task = as_task_regr(x = bikes, id = "bikes", target = "count")
forest = lrn("regr.ranger")$train(task)
# Compute AMEs for all features:
if (FALSE) {
overview = ame(model = forest, data = bikes)
summary(overview)
# Compute AMEs for a subset of features with non-default step.sizes:
overview = ame(model = forest,
data = bikes,
features = list(humidity = 0.1, weather = c("clear", "rain")))
summary(overview)
# Extract results:
overview$results
}
Run the code above in your browser using DataLab