R/bmi3.R

In Farr1611/Math4753Farr1611: 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)
}