demonstration of probably's calibration functions with non-standard names and groups

prob_cal.R

library(tidymodels)
library(probably)

set.seed(12)
example <- 
  two_class_example %>% 
  mutate(
    model = sample(c("logistic", "xgboost"), size = nrow(two_class_example), replace = TRUE)
  ) %>% 
  rename(`$@#!` = Class1, cls_2.5 = Class2)

example %>% 
  cal_plot_windowed(truth, `$@#!`, .by = c(model))

beta_cal <- 
  example %>% 
  cal_estimate_beta(truth, estimate = c(`$@#!`, cls_2.5), .by = c(model))

beta_cal