R/oc_manual.R

Defines functions oc_manual

Documented in oc_manual

#' Set a manual cutpoint for use with cutpointr
#'
#' This function simply returns \code{cutpoint} as the optimal cutpoint.
#' Mainly useful if bootstrap estimates of the out-of-bag performance of a
#' given cutpoint are desired, e.g. taking a cutpoint value from the literature.
#'
#' @inheritParams oc_youden_normal
#' @param cutpoint (numeric) The fixed cutpoint.
#' @examples
#' cutpointr(suicide, dsi, suicide, method = oc_manual, cutpoint = 4)
#' @family method functions
#' @export
oc_manual <- function(cutpoint, ...) {
    return(data.frame(optimal_cutpoint = cutpoint))
}
Thie1e/cutpointr documentation built on March 7, 2020, 3:25 a.m.