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!
CKD-Epi formula
2 messages · A.C. van der Burgh, 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.