if (FALSE) { # rlang::is_installed(c("recipes", "tidypredict", "workflows"))
library(workflows)
library(recipes)
library(parsnip)
rec_spec <- recipe(mpg ~ ., data = mtcars) |>
step_normalize(all_numeric_predictors())
lm_spec <- linear_reg()
wf_spec <- workflow(rec_spec, lm_spec)
wf_fit <- fit(wf_spec, mtcars)
orbital_obj <- orbital(wf_fit)
orbital_inline(orbital_obj)
library(dplyr)
mtcars |>
mutate(!!!orbital_inline(orbital_obj))
}
Run the code above in your browser using DataLab