library(recipes)
library(dplyr)
library(tidyr)
df <- Titanic |>
as_tibble() |>
uncount(n) |>
mutate(across(everything(), as.factor))
rec_obj <- recipe(Survived ~ ., data = df)
fct_tbl <- fast_classification(
.data = df,
.rec_obj = rec_obj,
.parsnip_eng = c("glm","earth")
)
fct_tbl
Run the code above in your browser using DataLab