Two different ways of pooling a list of models fitted on imputed data and then generating a summary table of the model using ´tbl_regression´

pool_imputation.R

library(mice)
library(gtsummary)

# impute the data
df_imputed <- mice::mice(trial, m = 2, seed = 123)

# build the model list
imputed_model_list <- purrr::map(
  1:df_imputed$m,
  ~ lm(age ~ marker + grade, complete(df_imputed, .x))
) %>% 
  as.mira()

# present beautiful table with gtsummary
tbl_regression(imputed_model_list) 

# build the model using `with`
imputed_model <- with(df_imputed, lm(age ~ marker + grade))

# present beautiful table with gtsummary
tbl_regression(imputed_model)