library(dplyr)
library(recipes)
library(multilevelmod)
mod_tbl <- make_regression_base_tbl()
mod_tbl <- mod_tbl |>
filter(
.parsnip_engine %in% c("gee") &
.parsnip_fns == "linear_reg"
)
class(mod_tbl) <- c("tidyaml_mod_spec_tbl", class(mod_tbl))
mod_spec_tbl <- internal_make_spec_tbl(mod_tbl)
rec_obj <- recipe(mpg ~ ., data = mtcars)
internal_make_wflw_gee_lin_reg(mod_spec_tbl, rec_obj)
Run the code above in your browser using DataLab