tests/testthat/_problems/test-WVIM-225.R

In xplainfi: Feature Importance Methods for Global Explanations

# Extracted from test-WVIM.R:225

# setup ------------------------------------------------------------------------
library(testthat)
test_env <- simulate_test_env(package = "xplainfi", path = "..")
attach(test_env, warn.conflicts = FALSE)

# test -------------------------------------------------------------------------
task = sim_dgp_independent(n = 200)
loco = LOCO$new(
		task = task,
		learner = lrn("regr.rpart"),
		measure = msr("regr.mse"),
		resampling = rsmp("holdout"),
		n_repeats = 1L
	)
loco$compute()
imp = loco$importance(ci_method = "lei")