使用引导程序的 Tidymodels 和 GEEs

Question

我不确定这是错误还是用户错误。我可以在单个数据集上拟合 GEE，但是在尝试拟合重采样时我总是遇到错误。

library(tidyverse)
library(tidymodels)
library(multilevelmod)

df_for_mod <- lme4::sleepstudy %>% as_tibble()

gee_boots <- bootstraps(df_for_mod, times = 10)

gee_spec <- 
  linear_reg() %>% 
  set_engine("gee", corstr = "exchangeable")


gee_wf <- workflow() %>%
  add_model(gee_spec, formula = Reaction ~ Days + id_var(Subject)) %>%
  add_variables(outcomes = Reaction, predictors = c(Days, Days)) 

# This works
fit_gee <- fit(gee_wf, df_for_mod)

# This gives me errors
fit_gee_boots <- fit_resamples(gee_wf, gee_boots, 
                               control = control_resamples(save_pred = TRUE, 
                                                           save_workflow = F))

感谢任何意见或建议！