# intro

    library(rawKS)
    #> Registered S3 methods overwritten by 'ggplot2':
    #>   method         from
    #>   [.quosures     rlang
    #>   c.quosures     rlang
    #>   print.quosures rlang

    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()