R/bmi3.R

In benjamin-roper/MATH4753rope0007: BMI Package

#' Create BMI Groups
#'
#' More detailed description.
#'
#' @param x Numeric vector.
#'
#' @return Factor variable
#'
#' @examples
#' bmi.vals <- rnorm(n = 20, mean = 25, sd = 3)
#' bmi3(bmi.vals)
#'
#' @export
bmi3 <- function(x) {
  bmi.groups <- cut(x, breaks = c(0, 25, 30, Inf), right = FALSE)
  return(bmi.groups)
}