1 Load packages 2 Data 3 A bit more than minimal 4 Results 5 Extract fit 6 Reproducibility 1 Load packages library(tidyverse) # data wrangling library(tidymodels) 2 Data data("penguins", package = "modeldata") 3 A bit more than minimal rec1 <- recipe(body_mass_g ~ ., data = penguins) %>% step_dummy(all_nominal()) %>% step_normalize(all_numeric_predictors()) %>% step_nzv(all_numeric_predictors()) %>% step_naomit(all_predictors()) Checks: summary(rec1) #> # A tibble: 7 × 4 #> variable type role source #> <chr> <chr> <chr> <chr> …