Skip to contents

Converts relative eGFR (normalized to 1.73 m²) to absolute eGFR using the patient's actual body surface area.

Usage

aegfr(egfr, bsa)

Arguments

egfr

estimated glomerular filtration rate (mL/min/1.73 m²)

bsa

body surface area (m²)

Value

Absolute eGFR (mL/min)

Details

Absolute eGFR is calculated as: $$aGFR = \frac{eGFR \cdot BSA}{1.73}$$

where:

  • \(eGFR\) = relative eGFR (mL/min/1.73m²)

  • \(BSA\) = body surface area (m²)

Examples

aegfr(90, 1.9)
#> [1] 98.84393
#> attr(,"units")
#> [1] "mL/min"

df <- data.frame(
  ID = c(1, 2, 3, 4),
  EGFR = c(80, 95, 70, 60),
  BSA = c(1.60, 1.85, 1.75, 2.00)
)

df <- df %>%
  dplyr::group_by(ID) %>%
  dplyr::mutate(AEGFR = aegfr(EGFR, BSA))
df
#> # A tibble: 4 × 4
#> # Groups:   ID [4]
#>      ID  EGFR   BSA AEGFR
#>   <dbl> <dbl> <dbl> <dbl>
#> 1     1    80  1.6   74.0
#> 2     2    95  1.85 102. 
#> 3     3    70  1.75  70.8
#> 4     4    60  2     69.4