# NOT RUN {
library(parsnip)
library(recipes)
model <- linear_reg()
model <- set_engine(model, "lm")
base_workflow <- workflow()
base_workflow <- add_model(base_workflow, model)
formula_workflow <- add_formula(base_workflow, mpg ~ cyl + log(disp))
partially_fit_workflow <- .fit_pre(formula_workflow, mtcars)
fit_workflow <- .fit_model(partially_fit_workflow, control_workflow())
# }
Run the code above in your browser using DataLab