Calculates Estimated Glomerular Filtration Rate based on Sex, Race, Age, and Creatinine levels based on the CKDEPI 2009 equation

Usage

ckdepi_2009_egfr(sexf, raceb, age, creat)

Arguments

sexf: boolean value of sex Female: TRUE, Male: FALSE
raceb: boolean value of Race == Black: Black: TRUE, Other: FALSE
age: age of subject (years)
creat: creatinine levels of subject (mg/dL)

Value

the eGFR value (mL/min/1.73m2)

Examples

e <- ckdepi_2009_egfr(TRUE, TRUE, 24, 1)

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)
   )
df <- dplyr::mutate(df, egfr = ckdepi_2009_egfr(SEXF, RACEB, AGE, CREAT))
df
#>    SEXF RACEB AGE CREAT      egfr
#> 1  TRUE FALSE  24     1  78.79023
#> 2 FALSE FALSE  24     1 104.87700
#> 3  TRUE  TRUE  23     2  39.77968
#> 4 FALSE FALSE  24     1 104.87700