# \donttest{
data("firms", package = "PEAXAI")
data <- subset(
firms,
autonomous_community == "Comunidad Valenciana"
)
x <- 1:4
y <- 5
RTS <- "vrs"
imbalance_rate <- NULL
trControl <- list(
method = "cv",
number = 3
)
# glm method
methods <- list(
"glm" = list(
weights = "dinamic"
)
)
metric_priority <- c("Balanced_Accuracy", "ROC_AUC")
models <- PEAXAI_fitting(
data = data, x = x, y = y, RTS = RTS,
imbalance_rate = imbalance_rate,
methods = methods,
trControl = trControl,
metric_priority = metric_priority,
seed = 1,
verbose = FALSE
)
final_model <- models[["best_model_fit"]][["glm"]]
imp <- PEAXAI_global_importance(
data = data, x = x, y = y,
final_model = final_model,
background = "real", target = "real",
importance_method = list(name = "PI", n.repetitions = 5)
)
head(imp)
# }
Run the code above in your browser using DataLab