Nothing
## ----ex_setup, include=FALSE--------------------------------------------------
knitr::opts_chunk$set(
message = FALSE,
digits = 3,
collapse = TRUE,
comment = "#>"
)
options(digits = 3)
library(recipes)
## ----car-pca------------------------------------------------------------------
library(recipes)
car_recipe <- recipe(mpg ~ ., data = mtcars) %>%
step_log(disp, skip = TRUE) %>%
step_center(all_numeric_predictors()) %>%
prep(training = mtcars)
# These *should* produce the same results (as they do for `hp`)
bake(car_recipe, new_data = NULL) %>% head() %>% select(disp, hp)
bake(car_recipe, new_data = mtcars) %>% head() %>% select(disp, hp)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.