The function is ablte to compute the optimal cutoff for various performance
measures, all performance measures that are implemented in function
perfMeasures.
## example from dataset infertfit <- glm(case ~ spontaneous+induced, data = infert, family = binomial())
pred <- predict(fit, type = "response")
optCutoff(pred, truth = infert$case, namePos = 1)