calculate_egfr_ckdepi: Calculate estimated GFR by CKD-EPI 2021 equation

In JMLuther/tabletools: Helpful Tools to Make html Tables

Calculate estimated GFR by CKD-EPI 2021 equation

Description

Calculates estimated glomerular filtration rate (GFR) by several common methods. Converts weight to Kg and Height to cm if needed. Available methods for eGFR calculations include:

* CKD-EPI AS Equation (2021) incorporating only Age, Sex * CKD-EPI ASR Equation (original, 2009) incorporating Age, Sex, Race * CKD-EPI Cystatin-C (not incorporated) * MDRD * EKFC * KRS * Cockcroft-Gault

Online calculators can be used to compare reults for CKD-EPI AS (2021), CKD-EPI ASR

Usage

calculate_egfr_ckdepi(age, sex, creatinine, race = NULL, version = "2021")

Arguments

age	Age, in years
sex	Sex
creatinine	Serum Creatinine, mg/dL
race	Race limited to either "White" or "Black"
version	Equation version, either "2021" or "original"

Value

a numeric vector with eGFR (ml/min/1.73m^2)

Examples

# CKD-EPI 2021 version (new race-free creatinine-based equation)
# https://www.kidney.org/professionals/kdoqi/gfr_calculator
calculate_egfr_ckdepi(age=50, sex="Male", creatinine=0.6) # 
calculate_egfr_ckdepi(age=70, sex="Male", creatinine=0.8, version = "2021") # 95.2
calculate_egfr_ckdepi(age=70, sex="Female", creatinine=0.8, version = "2021") # 79.2

# use of race-incorporated version not recommended (ASR);
# if you want to use race, use version = "original".
calculate_egfr_ckdepi(age=70, sex="Female", creatinine=0.8, race="White", version = "2021") # error
calculate_egfr_ckdepi(age=70, sex="Female", creatinine=0.8, race="White", version = "original") # 74

# original CKD-EPI equation; see [NIH eGFR calculator](https://www.niddk.nih.gov/health-information/professionals/clinical-tools-patient-management/kidney-disease/laboratory-evaluation/glomerular-filtration-rate-calculators/historical)
calculate_egfr_ckdepi(age=70, sex="Male", creatinine=0.8, version = "original", race = "Black") # 104.2
calculate_egfr_ckdepi(age=70, sex="Male", creatinine=0.8, version = "original", race = "White") # 89.9

# CKD-EPI AS (2021) RESULTS; Race-free equation
# Note: do not use race in function call; results same regardless of race
# results verified against Table S11 in Inker NEJM 2021: eGFR (AS) new
df <-
  data.frame(age=rep(c(rep(50,4),rep(75,4)),2),
             sex = rep(c(rep("Male",8),rep("Female",8)),2),
             race=c(rep("White",16),rep("Black",16)),
             creatinine = rep(c(0.6, 1, 1.5, 2), 4)
  )
df |>
  mutate(egfr = calculate_egfr_ckdepi(age=age, sex=sex, race=race, creatinine=creatinine),
         egfr_ckepi_original = calculate_egfr_ckdepi(age=age, sex=sex, race=race, creatinine=creatinine, version="original"),
         egfr_mdrd = calculate_egfr_mdrd(age, sex, race, creatinine),
         egfr_ekfc = calculate_egfr_ekfc(age, sex, creatinine),
         egfr_krs  = calculate_egfr_krs(age, sex, creatinine),
         egfr_fas  = calculate_egfr_fas(age, sex, creatinine))

JMLuther/tabletools documentation built on April 14, 2025, 3:09 a.m.