R/bmi3.R

In lzhangg/MATH4753zhan0122: 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)
}