# example data
act <- c(rep(1, 20), rep(0, 80))
pred <- c(runif(20, min = 0.4, max = 0.7), runif(80, min = 0, max = 0.5))
# run example
om <- optimize_metrics(actual = act, predicted = pred)
om$optimized
Run the code above in your browser using DataLab