R/bmi.R

In cuijj6/jpaper: What the Package Does (One Line, Title Case)

#' BMI
#' 
#' @param weight in kg
#' @param height in m or cm. This function can automatically guess the unit.
#' 
#' @export 
BMI <- function(weight, height) {
    bmi = weight / (height)^2
    if (bmi < 1) bmi <- weight / (height/100)^2
    bmi
}