d <- rbind(
data.frame(x = rbeta(1000, shape1 = 6, shape2 = 4), y = TRUE),
data.frame(x = rbeta(1000, shape1 = 2, shape2 = 5), y = FALSE)
)
find_ROC_matching_ab1(modelPredictions = d$x, yValues = d$y)
# should be near
# shape1_pos shape2_pos shape1_neg shape2_neg a b
# 3.985017 1.000000 1.000000 1.746613 3.985017 1.746613
#
# # How to land what you want as variables
# unpack[a, b] <-
# find_matching_a1_1b(modelPredictions = d$x, yValues = d$y)
Run the code above in your browser using DataLab