R/vke_sinifim.R

In rpydaneogrendim/vke_ilkpaket: vucut kitle endeksi hesapla

#' vucut kitle endeksine gore sinifi bul
#'
#' @param endeks
#' hesaplanan deger
#'
#' @return
#' @export
#'
#' @examples
#' vke_sinifim(endeks = 24.7)
vke_sinifim <- function(endeks){

  if(endeks < 18.5){
    return("Zayif")
  }else if(endeks < 24.9){
    return("Normal")
  }else if(endeks < 29.9){
    return("Kilolu")
  }else if(endeks < 34.9){
    return("1. Derece Obez")
  }else if(endeks < 39.9){
    return("2. Derece Obez")
  }else if(endeks >= 40){
    return("3. Derece Obez")
  }else{
    return("Gecersiz islem")
  }

}