set.seed(42)
data <- data.frame(y = rnorm(100), x1 = rnorm(100), x2 = rnorm(100))
train_idx <- 1:70
test_idx <- 71:100
# Simulate importance values
importance <- c(x1 = 0.6, x2 = 0.4)
# Good: importance computed on training data
result <- audit_importance(importance, data[train_idx, ], train_idx, test_idx)
# Bad: importance computed on full data (includes test)
result_bad <- audit_importance(importance, data, train_idx, test_idx)
Run the code above in your browser using DataLab