Using KDIGO 2012 Clinical Practice Guideline for the Evaluation and Management of Chronic Kidney Disease Volume 3 | Issue 1 | January 2013
eGFR_adult_SCr(...)
# S3 method for data.frame
eGFR_adult_SCr(.data, SCr, Age, male, black, ...)
# S3 method for units
eGFR_adult_SCr(SCr, Age, male, black, ...)
# S3 method for numeric
eGFR_adult_SCr(SCr, Age, male, black, ...)Further optional arguments
(data.frame) A data.frame, optional
Serum creatinine
column name, or vector of units or numeric if .data is not provided
Age of patient
column name, or vector of units or numeric if .data is not provided
Male or not
column name, or vector of logical (TRUE/FALSE) if .data is not provided
Black race or not
column name, or vector of logical (TRUE/FALSE) if .data is not provided
Estimated GFR of the same type provided (numeric or units)
See https://kdigo.org/guidelines/ckd-evaluation-and-management/ for more details
eGFR_adult_SCr(eGFR_pt_data,
SCr = "SCr_", Age = "Age_", male = "male_", black = "black_"
)
#> Units: [mL/1.73m2/min]
#> [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/1.73m2/min]