library(mlr3)
task = tgen("friedman1")$generate(n = 200)
rfi = RFI$new(
task = task,
learner = lrn("regr.rpart"),
measure = msr("regr.mse"),
conditioning_set = c("important1"),
sampler = ConditionalGaussianSampler$new(task),
n_repeats = 5
)
rfi$compute()
rfi$importance()
Run the code above in your browser using DataLab