R/homa_ir_index.R

In jcpsantiago/gmi: Calculate Various Glucose Metabolism Indices

#' HOMA-IR index
#'
#' @param glu  The value of fasting glucose.
#' @param ins  The value of fasting insulin.
#'
#' @return A double.
#'
#' @examples
homa_ir_index <- function(glu, ins) {
  stopifnot(length(glu) == 1 && length(ins) == 1)

  (glu * ins) / 22.5
}