eGFR 2009 CKD-EPI creatinine equation — eGFR_adult

Using KDIGO 2012 Clinical Practice Guideline for the Evaluation and Management of Chronic Kidney Disease Volume 3 | Issue 1 | January 2013

Usage

eGFR_adult_SCr(...)

# S3 method for class 'data.frame'
eGFR_adult_SCr(.data, SCr, Age, male, black, ...)

# S3 method for class 'units'
eGFR_adult_SCr(SCr, Age, male, black, ...)

# S3 method for class 'numeric'
eGFR_adult_SCr(SCr, Age, male, black, ...)

Arguments

...: Further optional arguments
.data: (data.frame) A data.frame, optional
SCr: Serum creatinine column name, or vector of units or numeric if .data is not provided
Age: Age of patient column name, or vector of units or numeric if .data is not provided
male: Male or not column name, or vector of logical (TRUE/FALSE) if .data is not provided
black: Black race or not column name, or vector of logical (TRUE/FALSE) if .data is not provided

Value

Estimated GFR of the same type provided (numeric or units)

Details

See https://kdigo.org/guidelines/ckd-evaluation-and-management/ for more details

Examples

eGFR_adult_SCr(eGFR_pt_data,
  SCr = "SCr_", Age = "Age_", male = "male_", black = "black_"
)
#> Units: [mL/(min*1.73m^2)]
#>  [1] 139.32466        NA 139.32466 150.52336        NA 150.52336 139.32466
#>  [8]        NA 139.32466 150.52336        NA 150.52336  49.63420        NA
#> [15]  49.63420  53.62373        NA  53.62373  49.63420        NA  49.63420
#> [22]  53.62373        NA  53.62373 155.99874        NA 155.99874 168.53768
#> [29]        NA 168.53768 155.99874        NA 155.99874 168.53768        NA
#> [36] 168.53768  66.06766        NA  66.06766  71.37808        NA  71.37808
#> [43]  66.06766        NA  66.06766  71.37808        NA  71.37808        NA
#> [50]        NA        NA

eGFR_pt_data %>%
  dplyr::mutate(eGFR = eGFR_adult_SCr(
    SCr = SCr_, Age = Age_, male = male_, black = black_
  ))
#> # A tibble: 51 × 11
#>       SCr_ SCysC_    Age_ male_ black_ height_    BUN_ eGFR_calc_type_     eGFR_
#>    [mg/dl] [mg/L] [years] <lgl> <lgl>      [m] [mg/dl] <chr>               [mL/…
#>  1     0.5   NA        20 FALSE FALSE       NA      NA eGFR_adult_SCr      139. 
#>  2    NA      0.4      20 FALSE FALSE       NA      NA eGFR_adult_SCysC    162. 
#>  3     0.5    0.4      20 FALSE FALSE       NA      NA eGFR_adult_SCr_SCy… 167. 
#>  4     0.5   NA        30 FALSE TRUE        NA      NA eGFR_adult_SCr      150. 
#>  5    NA      0.4      30 FALSE TRUE        NA      NA eGFR_adult_SCysC    155. 
#>  6     0.5    0.4      30 FALSE TRUE        NA      NA eGFR_adult_SCr_SCy… 171. 
#>  7     0.5   NA        20 FALSE FALSE       NA      NA eGFR_adult_SCr      139. 
#>  8    NA      1.2      20 FALSE FALSE       NA      NA eGFR_adult_SCysC     66.8
#>  9     0.5    1.2      20 FALSE FALSE       NA      NA eGFR_adult_SCr_SCy…  96.4
#> 10     0.5   NA        30 FALSE TRUE        NA      NA eGFR_adult_SCr      150. 
#> # ℹ 41 more rows
#> # ℹ 2 more variables: pediatric_ <lgl>, eGFR [mL/(min*1.73m^2)]