if (FALSE) { # rlang::is_installed(c("probably", "modeldata"))
library(modeldata)
head(two_class_example)
tlr <-
tailor() |>
adjust_equivocal_zone() |>
adjust_predictions_custom(linear_predictor = binomial()$linkfun(Class2))
tlr_fit <- fit(
tlr,
two_class_example,
outcome = c(truth),
estimate = c(predicted),
probabilities = c(Class1, Class2)
)
predict(tlr_fit, two_class_example) |> head()
}
Run the code above in your browser using DataLab