-
Notifications
You must be signed in to change notification settings - Fork 0
Open
Description
Hi,
library(finetune)
data(cells, package = "modeldata")
cells <- cells %>% dplyr::select(-case)
svm_spec <-
svm_rbf(cost = tune(), rbf_sigma = tune()) %>%
set_engine("kernlab") %>%
set_mode("classification")
svm_rec <-
~ .x %>%
recipe(class ~ .) %>%
step_YeoJohnson(all_predictors()) %>%
step_normalize(all_predictors())
res_svm <-
cells %>%
tidyflow(seed = 442) %>%
plug_recipe(svm_rec) %>%
plug_model(svm_spec) %>%
plug_resample(bootstraps, times = 25) %>%
plug_grid(grid_latin_hypercube, size=25) %>%
fit()
this is equivalent to
system.time({
set.seed(2)
svm_wflow %>% tune_grid(resamples = rs, grid = svm_grid)
})
I want to use the finetune method
system.time({
set.seed(2)
svm_wflow %>% tune_race_anova(resamples = rs, grid = svm_grid)
})
is it possible with tidyflow?
thank you
Metadata
Metadata
Assignees
Labels
No labels