# \donttest{
data("firms", package = "PEAXAI")
data <- subset(
firms,
autonomous_community == "Comunidad Valenciana"
)
trControl <- list(
method = "cv",
number = 3
)
# glm method
methods <- list(
"glm" = list(
weights = "dinamic"
)
)
models <- PEAXAI_fitting(
data = data,
x = c(1:4),
y = 5,
RTS = "vrs",
imbalance_rate = NULL,
methods = methods,
trControl = trControl,
metric_priority = c("Balanced_Accuracy", "ROC_AUC"),
seed = 1,
verbose = FALSE
)
# }
Run the code above in your browser using DataLab