df_list <- freMTPLmini |> split_into_train_validate_test(seed = 9000)
iblm_model <- train_iblm_xgb(
df_list,
response_var = "ClaimRate",
family = "poisson"
)
data_glm <- data_beta_coeff_glm(df_list$train, iblm_model)
data_glm |> dplyr::glimpse()
Run the code above in your browser using DataLab