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.
>