R/vke_hesapla.R

In rpydaneogrendim/vke_ilkpaket: vucut kitle endeksi hesapla

#' vucut kitle endeksini hesapla
#'
#' @param kilo
#' kg cinsinden
#' @param boy
#' cm cinsinden
#'
#' @return
#' @export
#'
#' @examples
#' vke_hesapla(kilo = 80, boy = 180)
vke_hesapla <- function(kilo, boy){

  return(round(kilo / (boy*boy) * 10000, digits = 1))

}