The function is able to compute the optimal cutoff for various performance
measures, all performance measures that are implemented in function
perfMeasures. Of course, for several of them the computation is
not really usefull such as sensitivity or specificity where one will get
trivial cutoffs.
## example from dataset infertfit <- glm(case ~ spontaneous+induced, data = infert, family = binomial())
pred <- predict(fit, type = "response")
optCutoff(pred, truth = infert$case, namePos = 1)