R/cutNumeric.R

In shirewoman2/Consultancy: Standardized tools for using R within the Simcyp Consultancy Team

#' Cut numeric data into bins with vector output
#'
#' This function cuts a vector of numbers just like the base R function
#' \code{\link[base]{cut}} except that the output will be a vector of numbers
#' rather than that weird factor that's the default. The number listed in the
#' output will be the upper boundary of the bin for the number that was used in
#' the input.
#'
#' @param x A numeric string
#' @param breaks the desired breaks in that string; these are the same as for
#'   the base function "cut". The number must be <= the bin into which it is
#'   sorted and the number must be >= the next-lower bin.
#'
#' @return Returns a vector of numeric data
#' @export
#'
#' @examples
#'
#' cutNumeric(c(-5, 17, 32, 65, 118), breaks = c(c(0, 15, 30, 60, 120)))
#'
#'

cutNumeric <- function(x, breaks){
   
   Out <- x
   Out <- cut(Out, unique(c(-Inf, breaks, Inf)))
   Outa <- stringr::str_extract(Out, "[0-9]{1,}\\]|0\\.[0-9]{1,}\\]")
   Outb <- stringr::str_extract(Out, "\\([0-9]{1,}|\\(0\\.[0-9]{1,}")
   Out <- Outa
   Out[is.na(Out)] <- Outb[is.na(Out)]
   Out <- as.numeric(sub("\\]|\\(", "", Out))
   Out[which(x == 0)] <- 0
   return(Out)
   
}