rec_test <- recipe(mtcars, mpg ~ .) %>%
step_binarize(vs, am, pass = 1) %>%
step_center(all_predictors(), -vs, -am) %>%
step_scale(all_predictors(), -vs, -am) %>%
prep()
bake(rec_test, mtcars)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.