if (FALSE) {
datamat <- matrix(
rnorm(24),
nrow = 4,
dimnames = list(paste0("v", 1:4), paste0("s", 1:6))
)
metadata <- data.frame(class = factor(c("A", "A", "A", "B", "B", "B")))
dataset <- list(data = datamat, metadata = metadata)
train_models_performance(
dataset,
models = c("rpart"),
column.class = "class",
validation = "cv",
compute.varimp = FALSE
)
}
Run the code above in your browser using DataLab