# ------- prepare iblm objects required -------
df_list <- freMTPLmini |> split_into_train_validate_test(seed = 9000)
iblm_model <- train_iblm_xgb(
df_list,
response_var = "ClaimRate",
family = "poisson"
)
test_data <- df_list$test
shap <- extract_booster_shap(iblm_model$booster_model, test_data)
# ------- demonstration of functionality -------
# create_bias_density() can create function of type 'bias_density'
my_bias_density <- create_bias_density(shap, test_data, iblm_model)
# this custom function then acts as per bias_density()
my_bias_density()
Run the code above in your browser using DataLab