Skip to contents

Calculate eGFR Using CKD-EPI 2021 Cystatin Equation

ckdepi_2021_egfr_cystatin.Rd

Calculate eGFR Using CKD-EPI 2021 Cystatin Equation

Usage

ckdepi_2021_egfr_cystatin(sexf, age, creat, cystc)

Arguments

sexf

a boolean representing if the patient is female.

age

age of patient in years

creat

serum creatinine levels in mg/dL.

cystc

serum cystatin C levels in mg/L.

Value

eGFR in mL/min/1.73 m^2

Details

The CKD-EPI 2021 creatinine-cystatin equation: $$eGFR = 135 \cdot \min(S_{cr}/\kappa, 1)^\alpha \cdot \max(S_{cr}/\kappa, 1)^{-0.544} \cdot \min(S_{cys}/0.8, 1)^{-0.323} \\ \cdot \max(S_{cys}/0.8, 1)^{-0.778} \cdot 0.9961^A \cdot 0.963^F$$

where:

  • \(S_{cr}\) = serum creatinine (mg/dL)

  • \(S_{cys}\) = serum cystatin C (mg/L)

  • \(\kappa\) = 0.7 (female) or 0.9 (male)

  • \(\alpha\) = -0.219 (female) or -0.144 (male)

  • \(A\) = age (years)

  • \(F\) = 1 (female) or 0 (male)

See also

Other renal_function: aegfr(), ckdepi_2009_egfr(), ckdepi_2021_egfr(), crcl(), egfr(), mdrd_egfr(), rfc(), schwartz_egfr()

Examples

e <- ckdepi_2021_egfr_cystatin(TRUE, 24, 1, 2)

df <- data.frame(
  "SEXF" = c(TRUE, FALSE, TRUE, FALSE),
  "RACEB" = c(FALSE, FALSE, TRUE, FALSE),
  "AGE" = c(24, 24, 23, 24),
  "CREAT" = c(1, 1, 2, 1),
  "CYSTC" = c(0.4, 0.8, 1, 2)
)
df <- dplyr::mutate(df, egfr = ckdepi_2021_egfr_cystatin(SEXF, AGE, CREAT, CYSTC))
df
#>    SEXF RACEB AGE CREAT CYSTC      egfr
#> 1  TRUE FALSE  24     1   0.4 121.95417
#> 2 FALSE FALSE  24     1   0.8 116.06793
#> 3  TRUE  TRUE  23     2   1.0  56.42931
#> 4 FALSE FALSE  24     1   2.0  56.90035