# \donttest{
if (requireNamespace("randomForest", quietly = TRUE)) {
datamat <- matrix(
rnorm(20),
nrow = 4,
dimnames = list(paste0("x", 1:4), paste0("s", 1:5))
)
classes <- factor(c("A", "A", "B", "B", "A"))
recursive_feature_elimination(datamat, classes, caret::rfFuncs)
}
# }
Run the code above in your browser using DataLab