library(rawKS)
data("two_class_example_edited") max(ks_table(two_class_example_edited$yhat, two_class_example_edited$y)$ks) #> [1] 0.7276892 ks_table(two_class_example_edited$yhat, two_class_example_edited$y) %>% ks_plot()
