df_list <- freMTPLmini |> split_into_train_validate_test(seed = 9000)
iblm_model <- train_iblm_xgb(
df_list,
response_var = "ClaimRate",
family = "poisson"
)
explainer_outputs <- explain_iblm(iblm_model, df_list$test)
data_booster <- data_beta_coeff_booster(
df_list$test,
explainer_outputs$beta_corrections,
iblm_model
)
data_booster |> dplyr::glimpse()
Run the code above in your browser using DataLab