[R] CKD-Epi formula

[Rui Barradas]

Hello,

The literal translation of the formula I have found online [1] to R code is



eGFR <- function(SCr, Age, Sex, Race){
     k <- ifelse(Sex == "M", 0.9, 0.7)
     alpha <- ifelse(Sex == "M", -0.411, -0.329)
     S <- ifelse(Sex == "M", 1, 1.018)
     R <- ifelse(Race = "black", 1.159, 1)
     141 * pmin(SCr/k, 1)^alpha * pmax(SCr/k, 1)^(- 1.209) * 0.993^Age * 
R * S
}


I really don't know what this is, my knoledge of biology is, to be nice, 
sketchy.

[1] https://www.kidney.org/content/ckd-epi-creatinine-equation-2009

Hope this helps,

Rui Barradas

On 5/23/2018 9:41 AM, A.C. van der Burgh wrote:
> Hi all,
> 
> I have a question and I do not know If I am at the right place to ask this question. But is there someone that has the formula of CKD-Epi in code in R?
> I have tried a lot of loops, but none of the approaches give me the right answer. Is there someone who has this formula coded?
> 
> Thank you!
> 
> 	[[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>