R/Rdich.R

In EccRiley/Riley: Riley: A working R-library of functions, data, color palettes (etc.) for everyday, and not-so-everyday, R tasks.

#' ## **`Rdich()`**
#'
#' Function for dichotomizing numeric data.^[This probably exists in one or more packages, but the function simple enough to define here, so I'd rather just do myself.]
#'
Rdich <- function(x,
                   min = 0,
                   values = c(0, 1)) {
    if (is.numeric(x)) {
        x <- ifelse(x <= min, values[1], values[2])
    }
    else
        stop('x must be numeric')
    return(x)
}
#'