## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(egfr)

## -----------------------------------------------------------------------------
egfr_ckdepi_cr_2021(creatinine = 1.0, age = 50, sex = "female")

## -----------------------------------------------------------------------------
egfr_ckdepi_cr_2021(
  creatinine = c(0.8, 1.2, 1.5),
  age        = c(40, 65, 72),
  sex        = c("female", "male", "female")
)

## -----------------------------------------------------------------------------
egfr_ckdepi_cr_2021(88.4, 50, "female", creatinine_units = "umol/l")

## -----------------------------------------------------------------------------
convert_creatinine(88.4, from = "umol/l", to = "mg/dl")

## -----------------------------------------------------------------------------
egfr_ckdepi_cys_2021(cystatin = 1.0, age = 50, sex = "female")
egfr_ckdepi_cr_cys_2021(creatinine = 1.0, cystatin = 1.0, age = 50, sex = "female")

## -----------------------------------------------------------------------------
result <- egfr_ckdepi_cr_2021(1.0, 50, "female")
ckd_stage(result)

## -----------------------------------------------------------------------------
area <- bsa(weight = 70, height = 175)
gfr_bsa_adjust(result, bsa = area, to = "absolute")