# \donttest{
library(tibble)
library(recipes)
pca_rec <-
recipe(mpg ~ ., data = mtcars) %>%
step_impute_knn(all_predictors(), neighbors = tune()) %>%
step_pca(all_predictors(), num_comp = tune())
pca_grid <-
tribble(
~neighbors, ~num_comp,
1, 1,
5, 1,
1, 2,
5, 2
)
merge(pca_rec, pca_grid)
spline_rec <-
recipe(mpg ~ ., data = mtcars) %>%
step_ns(disp, deg_free = tune("disp df")) %>%
step_ns(wt, deg_free = tune("wt df"))
spline_grid <-
tribble(
~"disp df", ~ "wt df",
3, 3,
5, 3,
3, 5,
5, 5
)
merge(pca_rec, pca_grid)
if (rlang::is_installed("modeldata")) {
library(parsnip)
library(dials)
data(hpc_data, package = "modeldata")
xgb_mod <-
boost_tree(trees = tune(), min_n = tune()) %>%
set_engine("xgboost")
set.seed(254)
xgb_grid <-
extract_parameter_set_dials(xgb_mod) %>%
finalize(hpc_data) %>%
grid_max_entropy(size = 3)
merge(xgb_mod, xgb_grid)
}
# }
Run the code above in your browser using DataLab