R/bmi3.R

In theo-frantz/MATH4753fran0107: BMI package

#' Create BMI Groups
#'
#' More detailed description
#'
#' @paran 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)
}