R/is_odd.r

In vbfelix/relper: Miscellaneous Functions for Data Preparation, Cleaning, and Visualization

#' Conditional check for an odd value
#'
#' @description Return TRUE if the value is odd.
#'
#' @eval arg_vector("x","numeric")
#'
#' @return A boolean vector with the return from the condition check.
#' @export
#'
#' @examples
#'
#' is_odd(4)
#'
#' is_odd(3)
#'

is_odd <- function(x){

  stopifnot(is.numeric(x))

  output <- !relper::is_even(x)

  return(output)

}